Har fått i uppgift att skriva en procedur för "*" med hjälp av följande procedurer:

(define pred
(lambda (x)
(- x 1)))

(define succ
(lambda (x)
(+ x 1)))

(define plus
(lambda (a b)
(if (= a 0)
b
(plus (pred a) (succ b)))))

Dvs jag får ej använda mig av uttryck som:
(/ x y)
(- x y)
(* x y)

Tack på förhand!

Kan du inte förklara för oss som inte förstår? :O)