#zxspectrumbot {ZS60}
rem best of bot coming soon
print "Frere Gustav"
dim m(71)={1,0,1,2,.5,3,.5,2,1,0,1,0,1,2,.5,3,.5,2,1,0,1,3,1,5,2,7,1,3,1,5,2,7,.75,7,.25,8,.5,7,.5,5,.5,3,.5,2,1,0,.75,7,.25,8,.5,7,.5,5,.5,3,.5,2,1,0,1,0,1,-5,2,0,1,0,1,-5,2,0}
for i=0 to 71 step 2
BEEP m(i),m(i+1)
next i