module Iterators;

syntax iterator for {init := 1; range := 1};

for {A B : Type} (f : A → B → A) (x : A) (y : B) : A :=
  f x y;

syntax iterator itconst {init := 2; range := 2};

itconst
  : {A B C : Type} → (A → A → B → C → A) → A → A → B → C → A
  | f := f;

builtin bool
type Bool :=
  | true : Bool
  | false : Bool;

main : Bool :=
  let
    z : Bool := false;
  in itconst (a := true; b := false) (c in false; d in false)
       for (x := true) (y in false)
         case x of {
           | true := y
           | false := z
         };