; <summe.scm>
(define
  (summe a b)
  (+ a b))
(summe 3 4)
(define
  summe
  (lambda (a b)
    (+ a b)))
(summe 3 4)
; und etwas sinnvoller:
(define
  (summe a b)
  (cond
    ((zero? b) a)
    ((> b 0) (summe (+ a 1) (- b 1)))
    (else
     (summe (- a 1) (+ b 1)))))
(summe 3 4)