A small Haskell exercise at the end of a day