Haskell: update 5
Using fold now