"Enter the first number: " print expect trim 1.1 prefer as $a "Enter the second number: " print expect trim 1.1 prefer as $b $a $b < if $b $a "%g is less than %g\n" print $a $b > if $b $a "%g is greater than %g\n" print $a $b = if $b $a "%g is equal to %g\n" print