procedure main(args) every 1 to integer(args[1]) do writes(?args[2]) end