Posted to tcl by Poor Yorick at Tue Jul 19 05:59:51 GMT 2016view raw

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