interp alias {} addone {} ::tcl::mathop::+ 1
puts [addone 6]; # => 7