Fixed fold direction in Haskell \BV.