10 lines
231 B
Text
10 lines
231 B
Text
import system.IO
|
|
|
|
definition main : IO unit :=
|
|
do { l ← get_line,
|
|
if l = "hello" then
|
|
put_str "you have typed hello\n"
|
|
else
|
|
do {put_str "you did not type hello\n", put_str "-----------\n"} }
|
|
|
|
vm_eval main
|