(require 'stdlib)

;; from the CL Cookbook - http://cl-cookbook.sourceforge.net

(define (curry function #!rest args)
  (lambda (#!rest more-args)
    (apply function (append args more-args))))

(puts (funcall (curry + 3) 5))
(define p-o-t (curry expt 10))
(puts (p-o-t 3))