#(while(write(ash 1(integer-length(read))))(newline))