17 lines
288 B
Text
17 lines
288 B
Text
import system.io
|
||
open io state_t
|
||
|
||
@[reducible] def my_io := state_t nat io
|
||
|
||
instance lift_io {α} : has_coe (io α) (my_io α) :=
|
||
⟨state_t.lift⟩
|
||
|
||
def tst : my_io unit :=
|
||
do x ← read,
|
||
put_ln x,
|
||
write (x+10),
|
||
y ← read,
|
||
put_ln y,
|
||
put_str "end of program"
|
||
|
||
#eval tst 5
|