Haskell version also clears screen