type 'a voption = [ `None | `Some of 'a]