テキストのソースコードはOSがUnix系でないと動かない書き方になっていますが、次のように書き直せば、Windowsでも動くようになります。

calculator.lhs

> import System.Console.ANSI
>
> cls                           :: IO ()
> -- cls                           =  putStr "\ESC[2J"
> cls                           =  clearScreen 
>
> type Pos                      =  (Int,Int)
> 
> goto                          :: Pos -> IO ()
> --goto (x,y)                    =  putStr ("\ESC[" ++ show y ++ ";" ++ show x ++ "H")
> goto (x, y) = setCursorPosition y x

System.Console.ANSIはcabal install ansi-terminalでインストールすれば使えるようになります。