procedure main()
every i:=0to 49&write(50-i|51+i)
end