How to add Album name to keywords

Feel free to improve or use it as it is ...

use the. script to see in Keywords the allocation to the albums; e.g. @myAlbum, @yourAlbum

-----------

tell application "Photos"

activate

set cnt to 0

set aStart to 440

set aEnd to 500

repeat with aAlbum in albums

set cnt to cnt + 1

if not (cnt ≥ aStart and cnt ≤ aEnd) then

log cnt

else

log cnt & " Album" & (count (media items of aAlbum)) & "Bilder "

set aKeyword to "@" & name of aAlbum

repeat with aItem in media items of aAlbum

if keywords of aItem as string is "missing value" then

set keywords of aItem to aKeyword

else

set keywords of aItem to keywords of aItem & aKeyword

end if

end repeat

end if

end repeat

display dialog "fertig" buttons {"OK"} default button 1 giving up after 10

end tell

return