RosettaCodeData/Task/Scope-modifiers/Tcl/scope-modifiers-3.tcl

proc decr {varName {decrement 1}} {
    upvar 1 $varName var
    incr var [expr {-$decrement}]
}