fixed point map

fpmap.rkt

(define fpmap
  (lambda args
    (map (lambda (iter)
           (apply (first args) iter (remove-last (rest args)))) (last args))))


    
(define (remove-last l)
  (reverse (rest (reverse l))))

(define (add-two a b)
  (+ a b))
  
;; (fpmap procedure [fixed points ...] list)
(fpmap add-two 2 '(1 2 3))