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

main := (tail(
   (let x 0_u64)
   (while (<( x 4_u64 )) (
      (match x (
         ()
         (y (print y))
      ))
      (set x (+( x 1_u64 )))
   ))
));
