(define (abs x) (or (and (< x 0) (- x)) (and (= x 0) 0) (and (> x 0) x) ((gensym))))(display (abs -42))

KGRlZmluZSAoYWJzIHgpIChvciAoYW5kICg8IHggMCkgKC0geCkpIChhbmQgKD0geCAwKSAwKSAoYW5kICg+IHggMCkgeCkgKChnZW5zeW0pKSkpKGRpc3BsYXkgKGFicyAtNDIpKQ==

KGRlZmluZSkuLiAoZ2V0KQooZ2V0MSkuLiAocXVvdGUpLiAoKSAocmVhZCkKCihkZWZpbmUpLi4gKGdldDEpLi4gYiByCihpZikuLi4gKGVvZi1vYmplY3Q/KS4gcgoocmV2ZXJzZSkuIGIKKGdldDEpLi4gKGNvbnMpLi4gciBiIChyZWFkKQoKKGRlZmluZSkuLiAocHV0KQoocHV0MSkuLiAocXVvdGUpLiAoKSAocmVhZC1jaGFyKQoKKGRlZmluZSkuLiAocHV0MSkuLiBiIHIKKGlmKS4uLiAoZW9mLW9iamVjdD8pLiByCihsaXN0LSZndDtzdHJpbmcpLiAocmV2ZXJzZSkuIGIKKGlmKS4uLiAoY2hhcj0/KS4uICNcKSByCihwdXQxKS4uIChjb25zKS4uICNcLiAoY29ucykuLiAjXC4gKGNvbnMpLi4gciBiIChyZWFkLWNoYXIpCihwdXQxKS4uIChjb25zKS4uIHIgYiAocmVhZC1jaGFyKQoKKGRlZmluZSkuLiAoZmluYWwpLiBsaXMKKGlmKS4uLiAobnVsbD8pLiBsaXMKbGlzCihmaW5hbDEpLi4gKGNhcikuIGxpcyAoY2RyKS4gbGlzCgooZGVmaW5lKS4uIChmaW5hbDEpLi4gZiByCihpZikuLi4gKGFuZCkuLi4gKHBhaXI/KS4gZiAocGFpcj8pLiAoY2RyKS4gZiAoZXF2PykuLiAocXVvdGUpLiBxdW90ZSAoY2FyKS4gZgooY29ucykuLiBmIChmaW5hbCkuIChjZHIpLiByCihpZikuLi4gKGxpc3Q/KS4gZgooZmluYWwyKS4uIGYgKGdhdGhlcikuLiAoY291bnQpLiAoY2FyKS4gciAoY29ucykuLiAocXVvdGUpLiAoKSAoZmluYWwpLiAoY2RyKS4gcgooaWYpLi4uIChvcikuLi4gKHZlY3Rvcj8pLiBmIChwYWlyPykuIGYgKGVxPykuLiAjXCkgZgooY29ucykuLiBmIChmaW5hbCkuIChjZHIpLiByCihjb25zKS4uIGYgKGZpbmFsKS4gcgoKKGRlZmluZSkuLiAoZmluYWwyKS4uIGYgZwooY29ucykuLiAoYXBwZW5kKS4uIChmaW5hbCkuIGYgKGNhcikuIGcgKGNkcikuIGcKCihkZWZpbmUpLi4gKGNvdW50KS4gcwooLSkuLiAoc3RyaW5nLWxlbmd0aCkuIChzeW1ib2wtJmd0O3N0cmluZykuIHMgMgoKKGRlZmluZSkuLiAoZ2F0aGVyKS4uIGMgbGlzCihpZikuLi4gKD0pLi4gYyAwCihjb25zKS4uIChyZXZlcnNlKS4gKGNhcikuIGxpcyAoY2RyKS4gbGlzCihnYXRoZXIpLi4gKC0pLi4gYyAxIChjb25zKS4uIChjb25zKS4uIChjYWRyKS4gbGlzIChjYXIpLiBsaXMgKGNkZHIpLiBsaXMKCihmb3ItZWFjaCkuLiB3cml0ZSAoZmluYWwpLiAod2l0aC1pbnB1dC1mcm9tLXN0cmluZykuLiAocHV0KSBnZXQ=

(define).. (get)
(get1).. (quote). () (read)

(define).. (get1).. b r
(if)... (eof-object?). r
(reverse). b
(get1).. (cons).. r b (read)

(define).. (put)
(put1).. (quote). () (read-char)

(define).. (put1).. b r
(if)... (eof-object?). r
(list->string). (reverse). b
(if)... (char=?).. #\) r
(put1).. (cons).. #\. (cons).. #\. (cons).. r b (read-char)
(put1).. (cons).. r b (read-char)

(define).. (final). lis
(if)... (null?). lis
lis
(final1).. (car). lis (cdr). lis

(define).. (final1).. f r
(if)... (and)... (pair?). f (pair?). (cdr). f (eqv?).. (quote). quote (car). f
(cons).. f (final). (cdr). r
(if)... (list?). f
(final2).. f (gather).. (count). (car). r (cons).. (quote). () (final). (cdr). r
(if)... (or)... (vector?). f (pair?). f (eq?).. #\) f
(cons).. f (final). (cdr). r
(cons).. f (final). r

(define).. (final2).. f g
(cons).. (append).. (final). f (car). g (cdr). g

(define).. (count). s
(-).. (string-length). (symbol->string). s 2

(define).. (gather).. c lis
(if)... (=).. c 0
(cons).. (reverse). (car). lis (cdr). lis
(gather).. (-).. c 1 (cons).. (cons).. (cadr). lis (car). lis (cddr). lis

(for-each).. write (final). (with-input-from-string).. (put) get