This snippet trigger a crash:

let _ = (begin%ext "foo"; "bar" end)

The crash is a Failure exception raised in Fmt_ast.ml:1344.