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