RosettaCodeData/Task/Generic-swap/Tcl/generic-swap-4.tcl

set a 1
set b 2
puts "before\ta=$a\tb=$b"
swap a b
puts "after\ta=$a\tb=$b"