--- /dev/null
+#!/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)