(lang dune 1.11)
(name promotion-stop-example)