fucking CL using FUCKFACE

Some CL programmer told me that lisp-2 is better than lisp-1 (I'm a (schemer) ;)) and I got so angry I smashed my mug. when I recollected myself I said to that fuck on #lisp

"WHAT THE FUCK DO YOU KNOW ASSHOLE????? YOUR MACRO SYSTEM IS NOT HYGIENIC!!! FUCKER" and I got banned but in the end it was worth it, that will teach those fucks.

>>1
(max 1 2)
2 is superior.

>>9
that's why we should use a real language that doesn't need things like variables and namespaces.
http://web.archive.org/web/20070830030835/ling.ucsd.edu/~barker/Iota/zot.html
(define S (lambda (x) (lambda (y) (lambda (z) ((x z)(y z))))))
(define K (lambda (x) (lambda (y) x)))
(define I (lambda (x) x))
(define zero (lambda (c) (c (lambda (f) ((f S) K)))))
(define one (lambda (c) (lambda (L)
              (L (lambda (l) (lambda (R)
                       (R (lambda (r) (c (l r))))))))))

; interrogate: ^f.fIIIK: maps zero onto K, one onto KI, and output onto K(KI).
(define interrogate (lambda (f) ((((f I) I) I) K)))
(define output (K (K (K (K (K (K I)))))))

(define print
  ((lambda (x) (x x))
   (lambda (self)
     (lambda (c)
       (display (((interrogate c) "0") "1"))
       (self self)))))

(do ((v (lambda (c) (c I)) (if (eq? #\0 (read-char)) (v zero) (v one))))
    ((eof-object? (peek-char)) ((v output) print)))