My exercism.io solution for haskell