(defun my-violin (start dur freq amp coolness)
  (fm-violin start dur freq amp))

(defun my-singer (start dur freq amp coolness)
  (singer ...) )




(defun my-violin (start dur freq amp coolness)
  (fm-violin start dur freq amp))


(defun detune (freq-hz range)
  (let ((transposition-halfsteps (random range))
	(halfstep (expt 2 (/ 1 12))))
    (* freq-hz (expt halfstep transposition-halfsteps))))