let fail_fatal msg =
  fail (`Fatal msg)