def (fib n)
  if (n >= 0)
    (transform n :thru (afn (n)
                         (if (n < 2)
                           n
                           (+ (self n-1)
                              (self n-2)))))