zipSubForest f (x:xs) (y:ys) = (zipTree f x y): zipSubForest f xs ys
zipSubForest f (x:xs) (y:ys) = (zipTree f x y): zipSubForest f xs ys
zipSubForest f (x:xs) (y:ys) = (zipTree f x y): zipSubForest f xs ys