# using  join

set a {abcd}
set b {efgh}
set l [list $a $b] # a list
set c [join  $l ]  # space sep (default)
set d [join  $l  {}]  # no sep

puts $c

abcd efgh

puts $d

abcdefgh