#!/usr/bin/env newlisp

; function addition
;(define (f x y) (+ x y))
;(println (f 1 2))

;(define f (lambda (x y) (+ x y)))
(setq f (lambda (x y) (+ x y)))
;(set 'f (lambda (x y) (+ x y)))
(println (f 1 2))
(println ((lambda (x y) (+ x y)) 1 2))

(println (let ((x 1) (y 2)) (+ x y)))
(println ((lambda (x y) (+ x y)) 1 2))

(setq x 3 y 4)
(println "x="x" y="y)
(println ((lambda (y) (setq x 5 y 6) (+ x y)) 1 2))
(println "x="x" y="y)

(exit)