代码段在在线IDE中工作，但在我的本地ghc上不起作用

Question

作为初学者，我写了一个片段来翻转一个字符串的案例。

module Main
 where

import Data.Char

main=do
  str<-getLine
  putStrLn ( reverser(str) )

reverser:: String -> String 
reverser [] = []
reverser (x:xs) | isUpper x = toLower x : reverser xs
                | otherwise = toUpper x : reverser xs

它在hackerearth.com的IDE上完美运行

IDE screenshot

然而，当我尝试在我的机器上运行相同的代码时，代码无休止地执行，并且没有任何输出也没有错误。

Terminal

我做错了什么？