072 Haskell different approach