1 2 3 4
function %program_p(p) //overloading function for "program" type tlist display mprintf("%s\n",string(p)) endfunction