procedure main()
every write((1to 8)+9|20|22|24|31|100|121|10000)
end