wtf

#+begin_src emacs-lisp
  (defun org-babel-execute:apples (body params)
    "Execute a block of Foma code with org-babel."
    (message "executing applescript source code block")
    (message (cddr (third (first params))))
    (do-applescript body))
#+end_src

#+begin_src elisp :var app="Google Chrome" foo="bar"
  tell application app to open "http://bing.com"
#+end_src

executing Elisp code block...

(app (quote "Google Chrome"))

(foo (quote "bar"))