main :: IO ()
main = do{ putStrLn "foo";  putStrLn "bar" } <|> putStrLn "baz"
main :: IO ()
main = do{ putStrLn "foo";  putStrLn "bar" } <|> putStrLn "baz"
main = do{ putStrLn "foo";  putStrLn "bar" } <|> putStrLn "baz"