let drums =
      [
        ("a", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
                     sound "bd sd bd sd" # amp 0.1
                     ]
        ),
        ("b", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
                     sound "bd bd sd ~" # amp 0.1
                     ]
        ),
        ("c", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
                     sound "bd ~ sd bd bd ~ sd bd" # amp 0.1
                     ]
        ),
        ("d", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
                     sound "bd bd sd bd bd ~ sd ~" # amp 0.1
                     ]
        ),
        ("e", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
                     sound "bd ~ sd ~ bd bd sd bd" # amp 0.1
                     ]
        ),
        ("f", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
                     sound "~ bd sd bd ~ bd sd bd" # amp 0.1
                     ]
        ),
        ("g", stack [sound "hh hh hh hh hh hh hh hh" # amp 0.1,
                     sound "bd ~ sd bd ~ bd sd ~" # amp 0.1
                     ]
        )
      ]
in
d2 $ ur 28 "a a b b c c d d e e f f g g" drums []

hush