: (compress-path') ( source-cursor -- destination-cursor )
    dup [ value>> ] [ key>> ] bi = [
        dup value>> with-key (compress-path')
        dup [ value>> ] [ key>> ] bi = [ dup value>> set-value ] unless
    ] unless