Call AppleScript from Haskell