Posted to tcl by jima at Fri Jun 02 10:08:06 GMT 2017view pretty

proc -> {value listOfCommands} {
    set buff $value
    foreach command $listOfCommands {
        set buff "\[$command $buff\]"
    }
    return $buff
}

-> {1 2 3} {first {times 10}}

# [times 10 [first 1 2 3]]