Evaluated proc cgc_fg args { set c $::__cgc; if {$args == ""} {return [first $c]} {set ::__cgc [list [first $args] [second $c]]} }