Posted to tcl by Poor Yorick at Tue Jul 19 05:59:51 GMT 2016view pretty
#! /bin/env tclsh apply [list args { dict for {key val} $args {} puts $args apply {args { foreach key $args { puts [::tcl::unsupported::representation $key] } }} {*}$args } [namespace current]] {*}[list [expr 1] one [expr 2] two]