Name: Anonymous 2008-06-17 17:37
the white man's burden of programming languages.
main = do
mapM_ putStrLn ["hey","guise"]withdraw :: Account -> Int -> STM ()
withdraw acc amount
= do { bal <- readTVar acc
; writeTVar acc (bal - amount) }parens :: Parser ()
parens = do{ char '('
; parens
; char ')'
; parens
}
<|> return ()