data Odd : Nat -> Type
data Even : Nat -> Type

data Odd where
  SO : Even n -> Odd (S n)

data Even where
  Z : Even Z
  SE : Odd n -> Even (S n)