$ "Please enter two numbers separated by a space; "
input quackery cr
say "The first number is "
[ 2dup > iff [ say "larger than" ] done
2dup = iff [ say "equal to" ] done
2dup < if [ say "smaller than" ] ]
2drop
say " the second number." cr