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