Fomus

(fomus
 :output '(:lilypond :view t)
 :ensemble-type :orchestra
 :global (list (make-timesig :off 0 :time '(3 4)))
 :parts (list
         (make-part
          :name "Flute 1"
          :instr :flute
          :events (list (make-note :off 0 :dur 1 :note 60)))
         (make-part
          :partid 'fl2
          :name "Flute 2"
          :instr :flute
          :events (list (make-note :off 0 :dur 1 :note 60)))
         (make-part
          :partid 'cl1
          :name "Clarinet 1"
          :instr :bf-clarinet
          :events (list (make-note :off 0 :dur 1 :note 60)))
         (make-part
          :name "Clarinet 2"
          :instr :bf-clarinet
          :events (list (make-note :off 0 :dur 1 :note 60)))
         (make-part
          :name "Violin 1"
          :instr :violin
          :events (list (make-note :off 0 :dur 1 :note 60)))
         (make-part
          :name "Violin 2"
          :instr :violin
          :events (list (make-note :off 0 :dur 1 :note 60)))
         (make-part
          :name "Cello 1"
          :instr :cello
          :events (list (make-note :off 0 :dur 1 :note 48)))
         (make-part
          :name "Cello 2"
          :instr :cello
          :events (list (make-note :off 0 :dur 1 :note 48)))
         (make-part
          :name "Tuba"
          :instr :tuba
          :events (list (make-note :off 0 :dur 1 :note 36)))))