procedure main(arglist)
every write(!arglist)
end