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

  1. proc -> {value listOfCommands} {
  2. set buff $value
  3. foreach command $listOfCommands {
  4. set buff "\[$command $buff\]"
  5. }
  6. return $buff
  7. }
  8.  
  9. -> {1 2 3} {first {times 10}}
  10.  
  11. # [times 10 [first 1 2 3]]
  12.