tr command in haskell