readme.hs

import Prelude
import Control.Exception

main = do
    input <- getLine
    let parsedNum =  (read input::Double)
    result <- try (print parsedNum)  :: IO (Either IOException ())
    case result of
      Right () -> putStrLn "Great Success! "
      Left e   -> do
        putStrLn "EXCEPTION! Operation was a success, but patient died."
        putStrLn $ show e