let x : mut<int> = ref (4)

let main : int =
    while (!x >? 0) {
      x := !x - 1
    };
    !x