namespace eval bar {

   proc flag {n} {
     return $n
   }
}


interp alias {} localias {} bar::flag

set i [interp create]
$i eval { namespace eval bar {} }
$i alias bar::flag bar::flag
$i eval {
   bar::flag 99
}
bar::flag 99
localias 99
puts "TCL='$tcl_patchLevel'"
puts "PROC      : [time {bar::flag 99} 1000]"
puts "LOCALALIAS: [time {localias 99} 1000]"
$i eval {
puts "SUBINTERP : [time {bar::flag 99} 1000]"
}

