Posted to tcl by Bradipo at Tue Jun 28 18:22:29 GMT 2016view pretty

% set test [list {>\s}]
{>\s}
% foreach i $test { puts $i }
>\s
% puts $test
{>\s}