(define sum-up (lambda (n acc) (cond ((zero? n) (writeln "done") 0) (else (writeln "add 1 to acc") (add1 acc) (writeln "sub 1 from n") (sub1 n) (sum-up n acc)))))