8 lines
217 B
Text
8 lines
217 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"} }
|