$get_song for itunes

alias get_song {
  .comopen Song iTunes.Application
  if ($comerr) { goto error }
  if ($com(Rating,CurrentTrack,3,dispatch* Track)) {
    if (!$com(Track)) { goto error }
    var %k = $com(Track,Name,2)
    var %name = $remove($com(Track).result,$chr(42),$chr(45))
  }
  :error
  while ($com(0)) { .comclose $com(1) }
  if (%name) { return %name }
  elseif (!%name) { return 0 }
}