procedure main()
n:=0
while writes(read()[n:=n+1|1])
end