Use the word REDUCE rather than PRUNE.
Rename component prune.lisp -> reduce.lisp.