example = do
  let list1 = [1, 2, 3]
  let list2 = [10, 20, 30]
  a <- list1
  b <- list2
  return [a, b]


main :: IO ()
main = do
  putStrLn $ show $ example