How to call org-set-property from a function

[Julien Cubizolles <j.cubizolles@free.fr>]

I have the following function to automate the creation of a new entry:

#+begin_src emacs-lisp
  (interactive)
  (save-excursion
    (org-beamer-select-environment)
    (org-set-tags-command)
    )
#+end_src

I'd like to add the possibility to set some properties through
(org-set-property) but I can't figure out how to call it in its
interactive way, so that it prompts me for a property and value ? Of
course adding (org-set-property) or (interactive (org-set-property))
doesn't work.

Also, I will sometimes need to include several different
properties. What would be the right way to run a loop where a new
property is set until the user answers something like C-return at the
prompt ?

Julien.