default foldlevel in haskell