:module Control.Exception
handle (\_ ->putStrLn "error") (print $ head "a")
handle (\_ ->putStrLn "error") (print $ head [])
