(module embed_export_effectful_rejected
  (fn log_step
    (export "log_step")
    (type
      (fn-type
        (params (own (con Int)) (own (con Str)))
        (ret (own (con Int)))
        (effects IO)))
    (params state label)
    (body
      (seq (do io/print_str label) state))))