:: remove-matches ( seq1 seq2 -- seq2' )
    [ swap member? not ] with filter 
    ;

:: do-appsupport ( folder -- )
    folder full-path folder-entries
    [ name>> ] map 
    "~/Library/Application\ Support" expandingTildeInPath cd
    [ cwd "/" append prepend ] map  
    [ move-if-exists ] filter
    break
    [ file-name ] map
    folder full-path folder-entries remove-matches
    [ link-entry ] each
    ;