solved 56 in haskell