Forest Belton nonsense phrase generator implementation in Haskell