Jazz Standard: Giant Steps

(setf theme
      '((h fs5 d5) (h b4 q. g4 e bb4 tie)
        (h. bb4 -q) (q. b4 eh a4)
        (h d5 bb4) (h g4 q. ds4 e fs4 tie)
        (w fs4) (h g4 q. f4 e bb4 tie)
        (h bb4 -) (h b4 q. a4 e d5 tie)
        (w d5) (h ds5 q. ds5 e fs5 tie)
        (h fs5 -) (h g5 q. g5 e bb5 tie)
        (w bb5) (q. fs5 q fs5 -q.)))

Chords

(setf chords
      '((h (b3 maj7) (d3 7)) (h (g3 maj7) (bb3 7))
        (w (eb3 maj7)) (h (a3 m7) (d3 7))
        (h (g3 maj7) (bb3 7)) (h (eb3 maj7) (gb3 7))
        (w (b3 maj7)) (h (f3 m7) (bb3 7))
        (w (eb3 maj7)) (h (a3 m7) (d3 7))
        (w (g3 maj7)) (h (cs3 m7) (fs3 7))
        (w (b3 maj7)) (h (f3 m7) (bb3 7))
        (w (eb3 maj)) (h (cs3 m7) (fs3 9))))

(def-score giant-steps
           (:title "Giant Steps"
            :composer "John Coltrane"
            :key-signature '(c major)
            :time-signature '(4 4)
            :tempo 288
            :layout (piano-solo-layout 'theme 'chords))

  (theme :omn theme
         :channel 1
         :sound 'gm
         :program 0)

  (chords :omn chords
          :channel 2))