Another run at the WordChains kata in haskell