99 Haskell exercise/1 to 10