;; Some version of the tak benchmark, as found in Nils Holm's _Lisp
;; from Nothing_. He dedicated the code in the book to the public
;; domain.
(label
 ((six (quote (1 2 3 4 5 6)))
  (twelve (append six six))
  (eighteen (append six twelve))
  (ltak (lambda (x y z)
          (cond ((not-longer x y) z)
                (true (ltak (ltak (cdr x) y z)
                            (ltak (cdr y) z x)
                            (ltak (cdr z) x y))))))
  (not-longer (lambda (a b)
                (cond ((eq nil a))
                      ((eq nil b) nil)
                      (true (not-longer (cdr a) (cdr b))))))
  (ntimes (lambda (n)
            (cond ((null n))
                  (true (print (ltak eighteen twelve six))
                        (ntimes (cdr n)))))))
 (ntimes (quote (1 2 3 4 5 6 7 8 9 10))))

;; This is 100 copies 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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)
(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)

;; 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)

	bash -c "time for x in $(A_HUNDRED_THINGS); do $(TEST_AWK) -f ./glotawk benchmark.glotawk >/dev/null; echo -n .; done; echo"

	bash -c "time for x in $(A_HUNDRED_THINGS); do $(TEST_AWK) -f ./glotawk benchmarks/benchmark.glotawk >/dev/null; echo -n .; done; echo"

*.dot
lacrum/lacrum
.gawkrc
.gawk_history