;(plus (one) (two))
;(one (plus (two)))

(define (one . params)
  (if (null? params) 1
   ((car params) 1)))

(define (plus num)
  (lambda (n) (+ n num))