module API where newtype Interface = I Int rsrc :: Interface rsrc = I 1