let%entry main (p : bool) (s : unit) =
  let u : unit = assert(p) in
  (([] : operation list), s)