-- take without a Sized constraint (caller adjusts the size)
take :: Size -> Breadth -> Node a -> Node a
take s i (Node _ v) = Node s (V.take i v)
take :: Size -> Breadth -> Node a -> Node a
take s i (Node _ v) = Node s (V.take i v)
take s i (Node _ v) = Node s (V.take i v)