data BinaryList : Type -> Type
Nil : BinaryList a
Zero : BinaryList (a, a) -> BinaryList a
One : a -> BinaryList (a, a) -> BinaryList a
RandomAccessList BinaryList