(module peek_mono_pin_smoke
  (fn at_int
    (type (fn-type (params (own (con StubT (con Int)))) (ret (con Int))))
    (params s)
    (body (app StubT.peek s)))
  (fn at_float
    (type (fn-type (params (own (con StubT (con Float)))) (ret (con Float))))
    (params s)
    (body (app StubT.peek s))))