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