(while(read-line)=>\(print(#0=string-copy\ 0 #1=(/(string-size\)2))" "(#0#\ #1#)))