fib.ss

#! /usr/bin/mzscheme
#lang scheme
(define (fib n)
  (if (or (= 0 n) (= 1 n)) n
      (+ (fib (- n 1)) (fib (- n 2)))))

(let runfib ((i 0))
  (unless (= i 36)
	  (display (string-append "n = " (number->string i) " => " (number->string (fib i)) "\n"))
	  (runfib (+ i 1))))