;; This is one copy of all the glotawk code that an early version of
;; sane_lisp ran, in the course of its testing.

(progn (quote 5) ((lambda (x) 3) 5) (label ((foo 3)) foo) (cond (false 5) (true 3)) (atom 5) (atom (quote "foo")) (atom (quote (1 2 3))) (atom (quote (1 . 2))) (atom (quote socrates)) (cons (quote foo) (quote bar)) (cons 1 (cons 2 (cons 3 nil))) (car (quote (foo bar))) (cdr (quote (foo bar))) (eq "foo" "bar") (eq "foo" "foo") ((lambda xs (car xs)) 1 2 3) (setq three 3) three (setq fst (lambda (a b) a)) (fst 9 8) (setq a (quote (1 2 3))) (setq b (quote (4 5))) (nconc a b) (macro q (lambda (x) (list (quote quote) (car x)))) (q foo) (quote (1 2 3)) (quasiquote (1 (unquote (+ 2 3)) 4)) `(1 ,(+ 2 3) 4) (+ 1 2 3) (* 2 3 5) (/ 3 5) (// 6 5) (% 6 5) (** 3 4) (atan2 0 -1) true)