3 lines
69 B
Tcl
3 lines
69 B
Tcl
|
interp alias {} addone {} ::tcl::mathop::+ 1
|
||
|
|
puts [addone 6]; # => 7
|