procedure main()
n:=0
while n+:=*write(repl(" ",n),read())
end