#!/usr/bin/env newlisp

(define (f x y) (+ x y z))
;(lambda (x y) (+ x y z))
(println (first f))
(println (last f))
(setq z 2)
(println (f 1 3))

(setf (nth 1 f) '(+ x y z 1))
(println (f 1 3))

(println (let ((z 2)) (expand f 'z)))

(exit)