procedure main(arglist)

if *envars = 0 then envars := ["HOME", "TRACE", "BLKSIZE","STRSIZE","COEXPSIZE","MSTKSIZE", "IPATH","LPATH","NOERRBUF"]

every v := !sort(envars) do
   write(v," = ",image(getenv(v))|"* not set *")
end