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"
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"