Evaluated proc psa args { if {$args != ""} {set ::psa $args;. ok} {set ::psa {}; . cleared} }