;;;* Last edited: Jul  1 14:37 1999 (sw)
1
"abc"
33
(define foo (quote bar))
(cons foo foo)
(lambda (x) x)
((lambda (x y) (x y y)) cons foo)
(quote (what-the-fuck *foo* bar!))
(define ned (quote a))
(define jed (quote b))
(define fred (lambda (x y z) (x y z)))
(fred cons ned jed)

(define sue (cons 1 2))
(car sue)
(cdr sue)
(set-car! sue 33)
sue
(set-cdr! sue 44)
sue
(display (plus 1 2))
(write (plus 3 4))

(pair? sue)
(list? sue)
(define boo (quote (1 2 3)))
(list? boo)
(length boo)
(reverse boo)


(eqv? 1 2)
(eqv? 1 1)

(eq? (quote a) (quote b))
(eq? (quote a) (quote a))

;;; this is a comment...

(define fact (lambda (n)
	       ; gakk
	       (if (eqv? n 1) 
		   1
		 (times n (fact (minus n 1))))))

(fact 4)
(define erk (lambda (x)
	      (cond
	       ((eqv? x 1) (display "hi") 11)
	       ((eqv? x 2) 22)
	       ((eqv? x 3) 33))))

(erk 3)

(define stuff (quote (1 2 3 4)))

;;(second stuff)
;;(third stuff)

(define (berk x y)
  (cons x y))


(quote foo)
(quote foo*bar/bazz>goo<roo!noo)
(quote ?soo:loo$noo%eoo_zoo&soo~aoo^)
(quote foo*bar/bazz>goo<roo!noo?soo:loo$noo%eoo_zoo&soo~aoo^)

(with-output-to-file "results" (lambda () (write (quote (a b))) (newline) (write 3)))