#(use-modules(ice-9 rdelim))#(let((s(read-line)))(format #t"~v@{~a
~:*~}"(string-length s)s))