cut.lisp implements parts of a srfi from racket for currying