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