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