From its_friendo:
^s ^bpm=180 ^l=8 ^d -3n1 -3n20 .. ^d -3n1 -3n20 . ^d -3n1 -3n20 ^d n1 n20 .. ^d +2n1 +2n20 . ^d +n1 +n20 ^d -n1 -n20 . ^d -2n1 -2n20 ^d -3n1 -3n20 . ^d -4n1 -4n20 ^d -3n1 -3n20