(while(read-line)=>\(print(if(#/ /\)(format"~va~a"(-(string-size\)1)(~\ 0)(regexp-replace-all" |.$"\""))\)))