13 lines
227 B
Text
13 lines
227 B
Text
import system.io
|
|
open io
|
|
variable [io.interface]
|
|
set_option trace.compiler.code_gen true
|
|
|
|
definition main : io unit :=
|
|
do { n ← return (10:nat),
|
|
if n = (11:nat) then
|
|
print 1
|
|
else
|
|
print 2 }
|
|
|
|
#eval main
|