ghc - 代码片段在在线 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 截图

但是，当我尝试在我的机器上运行相同的代码时，代码会无休止地执行，不会出现任何输出或错误。

终端

我究竟做错了什么？