-- Returning

setcps (120/60/3)

d1 $n "c5 d5 ~ g5 a5 ~c4" #s "midi" #octave "3 4*2 5"