foo x y = do c <- getChar return c