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

KGRlZmluZSAoZ2V0KSAoZ2V0MSAocXVvdGUgKCkpIChyZWFkKSkpKGRlZmluZSAoZ2V0MSBiIHIpIChpZiAoZW9mLW9iamVjdD8gcikgKHJldmVyc2UgYikgKGdldDEgKGNvbnMgciBiKSAocmVhZCkpKSkoZGVmaW5lIChwdXQpIChwdXQxIChxdW90ZSAoKSkgKHJlYWQtY2hhcikpKShkZWZpbmUgKHB1dDEgYiByKSAoaWYgKGVvZi1vYmplY3Q/IHIpIChsaXN0LT5zdHJpbmcgKHJldmVyc2UgYikpIChpZiAoY2hhcj0/ICNcKSByKSAocHV0MSAoY29ucyAjXC4gKGNvbnMgI1wuIChjb25zIHIgYikpKSAocmVhZC1jaGFyKSkgKHB1dDEgKGNvbnMgciBiKSAocmVhZC1jaGFyKSkpKSkoZGVmaW5lIChmaW5hbCBsaXMpIChpZiAobnVsbD8gbGlzKSBsaXMgKGZpbmFsMSAoY2FyIGxpcykgKGNkciBsaXMpKSkpKGRlZmluZSAoZmluYWwxIGYgcikgKGlmIChhbmQgKHBhaXI/IGYpIChwYWlyPyAoY2RyIGYpKSAoZXF2PyAocXVvdGUgcXVvdGUpIChjYXIgZikpKSAoY29ucyBmIChmaW5hbCAoY2RyIHIpKSkgKGlmIChsaXN0PyBmKSAoZmluYWwyIGYgKGdhdGhlciAoY291bnQgKGNhciByKSkgKGNvbnMgKHF1b3RlICgpKSAoZmluYWwgKGNkciByKSkpKSkgKGlmIChvciAodmVjdG9yPyBmKSAocGFpcj8gZikgKGVxPyAjXCkgZikpIChjb25zIGYgKGZpbmFsIChjZHIgcikpKSAoY29ucyBmIChmaW5hbCByKSkpKSkpKGRlZmluZSAoZmluYWwyIGYgZykgKGNvbnMgKGFwcGVuZCAoZmluYWwgZikgKGNhciBnKSkgKGNkciBnKSkpKGRlZmluZSAoY291bnQgcykgKC0gKHN0cmluZy1sZW5ndGggKHN5bWJvbC0+c3RyaW5nIHMpKSAyKSkoZGVmaW5lIChnYXRoZXIgYyBsaXMpIChpZiAoPSBjIDApIChjb25zIChyZXZlcnNlIChjYXIgbGlzKSkgKGNkciBsaXMpKSAoZ2F0aGVyICgtIGMgMSkgKGNvbnMgKGNvbnMgKGNhZHIgbGlzKSAoY2FyIGxpcykpIChjZGRyIGxpcykpKSkpKGZvci1lYWNoIHdyaXRlIChmaW5hbCAod2l0aC1pbnB1dC1mcm9tLXN0cmluZyAocHV0KSBnZXQpKSk=

KGRlZmluZSkuLi4gKGxvbmdlciB4IHkpCihkZWZpbmUpLi4gKGNvbXBhcmUgeCB5KQooYW5kKS4uIChwYWlyPyB4KQoob3IpLi4gKG5vdCB5KQooY29tcGFyZSkuLiAoY2RyIHgpIChjZHIgeSkKKGlmKS4uLiAoYW5kKS4uIChsaXN0PyB4KSAobGlzdD8geSkKKGNvbXBhcmUgeCB5KQooJmd0OyAobGVuZ3RoIHgpIChsZW5ndGggeSkp

(define)... (longer x y)
(define).. (compare x y)
(and).. (pair? x)
(or).. (not y)
(compare).. (cdr x) (cdr y)
(if)... (and).. (list? x) (list? y)
(compare x y)
(> (length x) (length y))