8 lines
161 B
Text
8 lines
161 B
Text
"$1 is $2 $3."
|
|
("Enter an integer" ask) 2 times over over
|
|
(
|
|
((>) ("greater than"))
|
|
((<) ("less than"))
|
|
((==) ("equal to"))
|
|
) case
|
|
' append prepend % print
|