8 lines
247 B
Text
8 lines
247 B
Text
$ "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
|