AA[x_] := RandomChoice[{1, 5, 8, 10, 13}]
ONEA = NestList[AA, 1, 14];
BB[x_] := RandomChoice[{6, 10, 13, 15, 18}]
FOUR = NestList[BB, 1, 14];
CC[x_] := RandomChoice[{8, 12, 15, 17, 20}]
FIVE = NestList[CC, 1, 14];
DD[x_] := RandomChoice[{1, 5, 8, 10, 13}]
ONEB = NestList[DD, 1, 14];

HaydenBlues = 
 Sound[{SoundNote[{#, 1}, 1, RandomChoice[{"Harpsichord"}]] & /@ ONEA,
   SoundNote[{#, 1}, 1, RandomChoice[{"Harpsichord"}]] & /@ ONEB, 
   SoundNote[{#, 6}, 1, RandomChoice[{"Harpsichord"}]] & /@ FOUR, 
   SoundNote[{#, 1}, 1, RandomChoice[{"Harpsichord"}]] & /@ ONEA, 
   SoundNote[{#, 8}, 1, RandomChoice[{"Harpsichord"}]] & /@ FIVE, 
   SoundNote[{#, 6}, 1, RandomChoice[{"Harpsichord"}]] & /@ FOUR, 
   SoundNote[{#, 1}, 1, RandomChoice[{"Harpsichord"}]] & /@ ONEB, 
   SoundNote[{1, 5, 8, 13}, 4, "Harpsichord"]}, 16]
Export["hayden_burgoyne.midi",HaydenBlues, "Midi"]