toRootZip :: Black a n -> BlackZip a n
toRootZip b = toBlackZip b (Left RootCrumb)
toRootZip :: Black a n -> BlackZip a n
toRootZip b = toBlackZip b (Left RootCrumb)
toRootZip b = toBlackZip b (Left RootCrumb)