haskell 99: 70c