gistfile1.scm

(define fib
    (lambda (n)
        (case n
            ((1) 0)
            ((2) 1)
            (else (+ (fib (- n 1)) (fib (- n 2)))))))

(define ..
    (lambda (b e)
        (if (> b e)
            (reverse (.. e b))
            (if (= b e)
                (cons b '())
                (cons b (.. (+ b 1) e))))))

(print (map fib (.. 1 20)))