main :: IO ()
main = print $ combinations [1, 2, 3] [4, 5, 6]

combinations as bs = do
  a <- as
  b <- bs
  return (a, b)