RosettaCodeData/Task/String-comparison/Tcl/string-comparison-1.tcl

if {$a eq $b} {
    puts "the strings are equal"
}
if {$a ne $b} {
    puts "the strings are not equal"
}