12 lines
267 B
Text
12 lines
267 B
Text
import StdEnv
|
|
|
|
compare a b
|
|
| a < b = "A is less than B"
|
|
| a > b = "A is more than B"
|
|
| a == b = "A equals B"
|
|
|
|
Start world
|
|
# (console, world) = stdio world
|
|
(_, a, console) = freadi console
|
|
(_, b, console) = freadi console
|
|
= compare a b
|