print "Enter two numbers separated by space"
set rc [readline]
set a [index $rc 0]
set b [index $rc 1]
if {$a < $b} {print "$a is less than $b"}
if {$a == $b} {print "$a is equal to $b"}
if {$a > $b} {print "$a is greater than $b"}