lang/posn.ss
#lang typed/scheme
(provide (all-defined-out))
(require/typed lang/posn
               [opaque Posn posn?]
               [make-posn (Integer Integer -> Posn)]
               [posn-x (Posn -> Integer)]
               [posn-y (Posn -> Integer)])