Bach in OMN

(setf rh1
      '((repeat
         (-h g5 tie)
         (h g5 fs5 tie)
         (q fs5 e g5 fs5 h e5 tie)
         (q e5 e d5 cs5 h d5)
         (-h e5 tie)
         (q e5 e d5 e5 h fs5 tie)
         (q fs5 e a5 g5 h a5 tie)
         (e a5 g5 a5 fs5 h g5)
         (-h e5 tie)
         (h e5 d5 tie)
         (q d5 e e5 fs5 h g5 tie)
         (e g5 fs5 g5 e5 h fs5 tie)
         (q fs5 fs5 h e5 tie)
         (q e5 e5 h d5 tie)
         (q d5 g5 e cs5 d5 q e5 tie)
         (h e5 d5))

        (-h a5 tie)
        (h a5 g5 tie)
        (q g5 e a5 b5 h c6 tie)
        (e c6 b5 q c6 h b5)
        (-h e5 tie)
        (h e5 q ds5 e5)
        (h. fs5 e e5 fs5)
        (h_e g5 e fs5 e5 d5)
        (q c5 -q h a5 tie)
        (h a5 g5 tie)
        (q g5 e a5 b5 h c6 tie)
        (e c6 b5 c6 a5 h b5 tie)
        (q b5 b5 h a5 tie)
        (q a5 a5 h g5 tie)
        (q g5 c6 e fs5 g5 q a5 tie)
        (h a5 g5)))

Right hand (2nd voice).

(setf rh2
      '((repeat
         (w b4)
         (h. a4 e b4 a4)
         (h. g4 e fs4 e4)
         (h fs4 -h)
         (h. g4 e fs4 g4)
         (h. a4 e c5 b4)
         (h_e c5 e b4 c5 a4)
         (h b4 -)
         (w g4)
         (h. fs4 e g4 a4)
         (h_e b4 e a4 b4 g4)
         (h. a4 q)
         (h. g4 q)
         (h. fs4 q b4)
         (e e4 fs4 h. g4)
         (w fs4))

        (w c5)
        (h. b4 e c5 d5)
        (h_e e5 e ds5 q e5)
        (w ds5)
        (w g4)
        (q fs4 g4 h a4 tie)
        (q a4 e g4 a4 h b4 tie)
        (e b4 a4 g4 fs4 h e4) (w c5)
        (h. b4 e c5 d5)
        (h_e e5 e d5 e5 c5)
        (h. d5 q)
        (h. c5 q)
        (h. b4 q e5)
        (e a4 b4 h. c5)
        (w b4)))

Left hand

(setf lh
      '((repeat
         (-q e g3 a3 q b3 c4)
         (q d4 d3 h d4)
         (-q e e4 d4 q cs4 a3)
         (q d4 d3 d4 c4)
         (q b3 mordent1 e a3 b3 q c4 c3)
         (q c4 e b3 c4 q d4 a3)
         (q d3 e fs3 e3 q fs3 d3)
         (q g3 d3 g2 e g3 a3)
         (q b3 e a3 b3 q cs4 e b3 cs4)
         (q d4 cs4 b3 a3)
         (q g3 fs3 e3 d3)
         (q cs3 e b2 cs3 q d3 e cs3 d3)
         (q b2 e a2 b2 q cs3 e b2 cs3)
         (q as2 e gs2 as2 b2 a2 g2 fs2)
         (q g2 e2 a2 a1)
         (q d2 a2 h d3))

        (-q e d3 e3 q fs3 d3)
        (q g3 g2 g3 e a3 b3)
        (q c4 b3 a3 e g3 a3)
        (q. b3 e a3 g3 fs3 e3 ds3)
        (q e3 e e4 d4 q c4 b3) 
        (q a3 e b3 c4 q fs3 e g3 a3)
        (q ds3 e e3 fs3 q b2 e cs3 ds3)
        (q e3 e e4 ds4 q e4 e fs4 g4)
        (q a4 e g4 a4 q fs4 e e4 fs4)
        (q g4 fs4 e4 d4)
        (q c4 b3 a3 g3)
        (q fs3 e e3 fs3 q g3 e fs3 g3)
        (q e3 e d3 e3 q fs3 e e3 fs3)
        (q ds3 e cs3 ds3 e3 d3 c3 b2)
        (q c3 a2 d3 d2)
        (q g2 d3 h g3)))

Defining a score with PIANO-SOLO-LAYOUT instrument.

(def-score voices
           (:title "Goldberg-Variationen"
            :subtitle "Variation 18 a 1 Clav."
            :composer "J.S. Bach"
            :key-signature '(c maj)
            :time-signature '(2 2)
            :tempo '("Canone alla Sesta" q 182)
            :layout (piano-solo-layout '(pno-rh1 pno-rh2) 'pno-lh))

  (pno-rh1 :omn rh1 :channel 1 :sound 'gm :program 0)
  (pno-rh2 :omn rh2)
  (pno-lh :omn lh))