A Haskell solution for snail kata