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