do d9 $ midicmd "stop" # s "midi" hush let melody = slow 6 $ "0 2 [4 8 .] [3 4 3] 8 4 9" let melody = slow 6 $ "0 2 [4 8 .] [3 4 3] 8 4 9" do cps (86/60/2) d9 $ midicmd "midiClock*48" # s "midi"