; test.bl
; little tests for the interpreter to do
; run with python all.py < test.bl

(defun first (list) (car list))
(defun second (list) (first (cdr list)))

(second '(1 2 3 4 5))


(defun listize (a) (cons a '()))
(listize 42)
(defun makepair (a b) (cons a (listize b)))
(makepair 1000 1001)
(defun switch (pair) (makepair (second pair) (first pair)))
(switch '(1 2))
q

[the 'q' on the previous line quits the interpreter cleanly]