: simpleCalculator :: Int -> (Int -> Int -> Int) -> IO () simpleCalculator ans op =  do     input <- getInput   -- here i got the type as result     case input of       Exit -> return ()       Error x -> print x       Number n -> 