entrytree_map_ f (e2:et) rrr@(r:rr) =
    e2map++etmap
    where
        nch = entrytree_map_ f (entrytree_children e2) (0:rrr)
        e2map = f e2 nch (Loc $ reverse rrr)
        etmap = entrytree_map_ f et ((r+1):rr)
entrytree_map_ f (e2:et) rrr@(r:rr) =
    e2map++etmap
    where
        nch = entrytree_map_ f (entrytree_children e2) (0:rrr)
        e2map = f e2 nch (Loc $ reverse rrr)
        etmap = entrytree_map_ f et ((r+1):rr)
entrytree_map_ f (e2:et) rrr@(r:rr) =
    e2map++etmap
    where
        nch = entrytree_map_ f (entrytree_children e2) (0:rrr)
        e2map = f e2 nch (Loc $ reverse rrr)
        etmap = entrytree_map_ f et ((r+1):rr)