Haskell Day 3 - first exercise