12 lines
202 B
Text
12 lines
202 B
Text
import system.io
|
|
|
|
set_option trace.compiler.code_gen true
|
|
|
|
definition main : io unit :=
|
|
do { n ← return (10:nat),
|
|
if n = (11:nat) then
|
|
put_nat 1
|
|
else
|
|
put_nat 2 }
|
|
|
|
vm_eval main
|