Apple Scirpt example