set tags to text returned of (display dialog "" default answer "")
tell application "Safari" to tell document 1 to set {u, t} to {URL, name}
tell application "Finder"
    make new internet location file at POSIX file "/Users/username/Bookmarks" to u with properties {name:t}
    set p to POSIX path of (result as alias)
end tell
do shell script "/usr/local/bin/tag -s " & quoted form of tags & " " & quoted form of p