main :: IO () main = do putStrLn $ "Insert a number" x <- getLine putStrLn $ "The double of " ++ x ++ " is " ++ (show $ (read x) * 2)