(define (quote x)
(cons (lambda (x) (lambda (y) (lambda (z) ((x z) (y z))))) x))
(define (quasiquote x)
(cons (lambda (x) (lambda (y) x)) x))
(define (unquote x)
(if (null? (cdr x)) (car x) (cons ((cadr x) (car x)) (cddr x))))
(,,,,,`,`'`,,``',,,,,,,`,`'`,,``',,,,,,`,`',,``',,,,``,,``',,'`'',,,,'
`,,``',,'`'',,'`'',,,,,,,`,`'`,,,,``,,``',,'`'',,,,,,`,`'`,,,,``,,``'
,,'`'',,,,'`,,``',,'`'',,'`'',,,,'`,,``',,'`'',,'`'',,,,,,`,`'`,,``',
,,,,,`,`',,``',,,,``,,``',,'`'',,,,'`,,``',,'`'',,'`'',,,,,,,`,`'`,,,
,``,,``',,'`'',,,,,,`,`'`,,,,``,,``',,'`'',,,,'`,,``',,'`'',,'`'',,,,
'`,,``',,'`'',,'`''''()
(lambda (x)
(display (((,,,,,`,`'`,,``',,,,,,,,,`,`'`,,``',,,,``,,``',,'`'',,,,,
,,,,`,`'`,,``',,,,,,``,,``',,,,``,,``',,'`'',,,,'`,,``',
,'`'',,'`'',,,,,,,,`,`'`,,,,``,,``',,'`'',,,,,,``,,``',,
,,``,,``',,'`'',,,,'`,,``',,'`'',,'`'',,,,,,'`,,``',,,,`
`,,``',,'`'',,,,'`,,``',,'`'',,'`'',,,,'`,,``',,'`'',,'`
'',,,,,,'`,,``',,,,``,,``',,'`'',,,,'`,,``',,'`'',,'`'',
,,,'`,,``',,'`'',,'`'',,,,,,`,`',,``',,,,``,,``',,'`'',,
,,'`,,``',,'`'',,'`'',,,,'`,,``',,'`'',,'`''() x)
(cut pa$ + <>)) 1)) (newline)
(,,,,,,`,`'`,,``',,,,,,,`,`'`,,,,``,,``',,'`'',,,,,,`,`',,``',,,,``,
,``',,'`'',,,,'`,,``',,'`'',,'`'',,,,'`,,``',,'`'',,'`'',,,,,,`,`'`
,,,,``,,``',,'`'',,,,'`,,``',,'`'',,'`''() x)))
