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