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

KGRlZmluZSkuLiAoc3F1YXJlKS4geAooKikuLiB4IHggCgo7Rm91ciB3YXlzIHRvIHdyaXRlIHRoZSBzYW1lIHRoaW5nCih3cml0ZSkuIChzcXVhcmUpLiAzCih3cml0ZSkuIChzcXVhcmUgMykKKHdyaXRlIChzcXVhcmUpLiAzKQood3JpdGUgKHNxdWFyZSAzKSkK

(define).. (square). x
(*).. x x 

;Four ways to write the same thing
(write). (square). 3
(write). (square 3)
(write (square). 3)
(write (square 3))