procedure main()
every write([1,2,i:=0to 400][i%3+1]+i)
end