Posted to tcl by pooryorick at Tue Jul 19 06:02:17 GMT 2016view raw

  1. #! /bin/env tclsh
  2.  
  3. apply [list args {
  4. dict for {key val} $args {}
  5. puts $args
  6. foreach key $args {
  7. puts [::tcl::unsupported::representation $key]
  8. }
  9. } [namespace current]] {*}[list [expr 1] one [expr 2] two]
  10.