Add to playlist.scpt

tell application "iTunes" -- Add to playlist... this is horny/inflamed/ not hairy , which means bad/touch and go/dicey, so hornier than I thought it would be
    set s to {}
    if player position is not missing value then
        if not (exists playlist "*NEW*") then
            set pl to make playlist with properties {name:"*NEW*"}
        else
            set pl to (playlist "*NEW*")
        end if
        try
            get location of current track
            set s to (s & result)
        on error
            set s to {}
        end try
    else
        repeat with T in selection
            try
                set s to (s & (location of T))
            end try
        end repeat
        -- now select playlist
        get name of every user playlist of source "Library" whose (special kind is none and smart is false)
        choose from list result with prompt "Add to which playlist?"
        set N to item 1 of result
        get every user playlist of source "Library" whose name is N
        set pl to item 1 of result
        --
    end if
    if (count of s) is not 0 then
        add s to pl
    end if
end tell