cname:= proc (nam,fce) local p;
    #add name of function  fce  to the name  nam
    if type(fce,function) then 
        p:=op(0,fce); nam[p]
     else  
        nam.fce 
     fi
end;