11 lines
296 B
Text
11 lines
296 B
Text
import system.io
|
||
|
||
def lifted_test : state_t ℕ (reader_t ℕ io) unit :=
|
||
do 0 ← get,
|
||
1 ← read,
|
||
with_reader (λ n, (n, 2)) ((do p ← read,
|
||
put p.2) : state_t ℕ (reader_t (ℕ × ℕ) io) _),
|
||
2 ← get,
|
||
pure ()
|
||
|
||
#eval (lifted_test.run 0).run 1
|