(module new_stubt_smoke
  (fn unwrap_int
    (doc "Project the Int back out of a StubT<Int>.")
    (type (fn-type (params (con StubT (con Int))) (ret (con Int))))
    (params s)
    (body (match s (case (pat-ctor Stub x) x))))
  (fn main
    (doc "raw-buf.4 desugar ratifier: (new StubT 42) desugars to (app StubT.new 42), builds, and prints 42.")
    (type (fn-type (params) (ret (con Unit)) (effects IO)))
    (params)
    (body
      (let s (new StubT 42)
        (app print (app unwrap_int s))))))