(defun two-partials (f1 f2 phase)

  (sim (scale 0.25 (osc (hz-to-step f1) 5 *table* 0.0))
       (scale 0.25 (osc (hz-to-step f2) 5 *table* phase))
  )

)