set string_p [join $tokens "."]
puts stdout $string_p