Name: Anonymous 2011-10-03 19:27
The language itself is the same over-engineered bullshit as the programs that are written in it.
askPassword = do putStrLn "pass:"
pass <- getLine
if (isValid pass)
then storeInDatabase
else askPassword
where storeInDatabase = do putStrLn "storing"
...