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

(define (curry function . args)
  (lambda more-args
    (apply function (append args more-args))))

(print ((curry + 3) 5))
(define power-of-ten (curry expt 10))
(print (power-of-ten 3))

;; using gauche pa$ built-in
(define curry pa$)

(print ((curry + 3) 5))
(define power-of-ten (curry expt 10))
(print (power-of-ten 3))