CL-USER> (netfarm-scripts:define-script *fib* "fib" (1 2)
           (:procedure 1)
           ;; (if (< x 2) x (+ (fib (- x 1)) (fib (- x 2))))
           (get-env 0 0) (get-value 1) <
           (jump-cond 0 0 0 4)
           (get-env 0 0) return
           (get-env 0 0) (get-value 0) - (get-proc* 0) (call 1)
           (get-env 0 0) (get-value 1) - (get-proc* 0) (call 1)
           + return)
           
*FIB*
CL-USER> (netfarm-scripts:run-interpreter *fib* '(28))
(317811)