; Fibonacci sequence calculator in Genyris
(defun fib (n)
  (cond
    ((= n 0) 0)
    ((= n 1) 1)
    (else (+ (fib (- n 1)) (fib (- n 2))))))

; Print first 10 Fibonacci numbers
(var i 0)
(while (< i 10)
  (print "fib(" i ") = " (fib i))
  (setq i (+ i 1)))