99 Haskell exercise