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