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

KCg9ZGVmaW5lIGRlZmluZSBmdW5jdGlvbi9wcm9jZWR1cmUpKS4uCigoPXNxIHNxdWFyZS9zZWNvbmQtcG93ZXIgb2YpICg9biB0aGUgbnVtYmVyIG4pKQooKD0qIG11bHRpcGx5IG51bWJlcnMpKS4uICg9biB0aGUgbnVtYmVyIG4pICg9biB0aGUgbnVtYmVyIG4p

((=define define function/procedure))..
((=sq square/second-power of) (=n the number n))
((=* multiply numbers)).. (=n the number n) (=n the number n)