#(use-modules(ice-9 rdelim))z=#(read-line)#(string-map(lambda(x)(format #t"~a
"z)x)z)