global G1

procedure main(arglist)
local ML1
static MS1
undeftest()
end

procedure undeftest(P1)
static S1
local L1,L2
every                                                                   #write all local, parameter, static, and global variable names
   write((localnames|paramnames|staticnames|globalnames)(&current,0))   # ... visible in the current co-expression at this calling level (0)
return
end