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

proc semival args {
    uplevel 1 [join $args ";"]
}