
import STDLIB/default-instruction-set.lm;
import STDLIB/default-primitives.lm;
import STDLIB/default-stdlib.lm;
import STDLIB/default-rules.lm;

type E CaseOne | CaseTwo | CaseThree;

main := (
   (let x CaseOne)
   (let y CaseTwo)
   (let z CaseThree)
   (print (.0 x))
   (print (.0 y))
   (print (.0 z))
);
