A primitive translator to Pig Latin written in Haskell