Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Prelude/_Foldr.hs
module Prelude where -- NOTE: arguments in unusual order! _foldr :: (a -> b -> b) -> [a] -> b -> b _foldr f [] d = d _foldr f ((:) x xs) d = f x (_foldr f xs d)