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

#! /bin/env tclsh

apply [list args {
    dict for {key val} $args {}
    puts $args 
    foreach key $args {
        puts [::tcl::unsupported::representation $key]
    }
} [namespace current]] {*}[list [expr 1] one [expr 2] two]