let
fail_fatal msg =
fail (
`
Fatal
msg)