procedure main()
every write((n:=0)+:=1to 40)
end