Haskell implementation of WTF