procedure main() every write(0to 9&1) end