Paste: compress-path seeecratz

:: compress-path ( SRC TBL -- dst )
   SRC TBL at -> DST [
     SRC DST =
       [ SRC ]
       [ DST TBL compress-path -> DST'
           [ DST DST' = [ ] [ DST' SRC TBL set-at ] if DST' ] ]
     if ] ;