\include "gnote2_2.ily"

\new StaffGNoteTwo {
% \new Voice {
  $@(let
  ((notes
  (ly:music-property
  #{
  <c des d dis e f fis g gis a ais b>
  #}
  'elements)))
      (map
      (lambda (x)
      (list-ref notes
      (random
      (length notes))))
      (iota 400)))
}