40 miles of bad code

############# 40 miles of bad code ##################

mn=[];for jn in 1…1024
mn[jn]=(hz_to_midi(2.75*jn))-2; end
mn[0]=:r; use_bpm 110

c=[36,32,27,27,27,27,27,27,27,27,
36,36,36,36,40,40,40,40]; o=[1,2,2]
m=[2,0,4,0,3,0,4,0]
z=[2,0,1,1,4,0,1,1]
d=[1,0,0,0,8,0,0,0]
f=[8,0,0,0,0,0,0,0]
s=[:fm,:pretty_bell, :pluck]
e=[1.5, 0.5, 2.0 ]
v=[1.2, 1.0, 2.0 ]

loop do
for x in 0…17; for y in 0…7; r=rand_i(3)

  synth :dsaw, note: mn[2*c[x]], detune: 7,
  sustain: f[y]/4.0,  release: 0, amp: 0.07

  synth s[r], note: mn[c[x]*m[y]*o[r]/2], release: e[r], 
  amp: v[r]/2.0

  synth :noise, release: 0.01, amp: z[y]/4.0
  
  synth :beep, note: mn[16*d[y]], release: 0.1, amp: 0.5

sleep 0.25; end; end; end