define : fibfast n if (< n 2) . n fibup n 2 1 0 define : fibup maxnum count n-1 n-2 if (= maxnum count) + n-1 n-2 fibup maxnum + count 1 + n-1 n-2 . n-1 define : factorial n if (<= n 1) . 1 * n factorial (- n 1) define (gcd x y) if (= y 0) . x gcd y rem x y define : add-if-all-numbers lst call/cc lambda (exit) let loop : lst lst sum 0 if : null? lst . sum if : not : number? : car lst exit #f + (car lst) loop (cdr lst)