Add Partial.hs.
Partially implemented examples of folds.