Tiny-shell in Haskell