(loop(write-line(fill(read-line)#\0)))