(define fib
  (lambda (n)
    (cond ((= n 0) 0)
          ((= n 1) 1)
          (else (+ (fib (- n 1))

module Fibonacci
    where

fib x =
    if x == 0