First try at Haskell solution
Mention Steve