parameter in and out
% proc aa { href } { upvar $href localhref;set localhref 1;}% aa test1% puts $test1