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)))))