карри в схеме

У меня есть эта функция curry :

(define curry
(lambda (f) (lambda (a) (lambda (b) (f a b)))))

Я думаю, это как (define curry (fab)) .

Мое задание - написать функцию consElem2All с использованием curry ，, которая должна работать как

(((consElem2All cons) 'b) '((1) (2 3) (4)))
>((b 1) (b 2 3) (b 4))

. Я написал эту функцию обычным способом:

(define (consElem2All0 x lst) 
  (map (lambda (elem) (cons x elem)) lst))

но все же не Я не знаю, как преобразовать его с помощью карри . Может ли кто-нибудь мне помочь?

заранее спасибо

bearzk