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