node :: (Sized a) => V.Vector a -> Node a
node n = Node (sizeN r) n
  where r = Node (-1) n

-- Symmetric 0-copy split
node :: (Sized a) => V.Vector a -> Node a
node n = Node (sizeN r) n
  where r = Node (-1) n

-- Symmetric 0-copy split
node n = Node (sizeN r) n
  where r = Node (-1) n

-- Symmetric 0-copy split