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]