f_print (fout, "}\n");
fprintf (fout, "}\n");
write_program (definition * def){  version_list *vp;  proc_list *proc;  for (vp = def->def.pr.versions; vp != NULL; vp = vp->next)    {      for (proc = vp->procs; proc != NULL; proc = proc->next)	{	  f_print (fout, "\n");	  ptype (proc->res_prefix, proc->res_type, 1);	  f_print (fout, "*\n");	  pvname (proc->proc_name, vp->vers_num);	  printarglist (proc, "clnt", "CLIENT *");	  f_print (fout, "{\n");	  printbody (proc);	  f_print (fout, "}\n");	}    }}