Add bson:fold/3