applescript modified