procedure main(arg) every 1 to 10 do writes("*") end