do
  let dascale = "hirajoshi"
  let chord = "'maj"
  let melo = "0 3 4 7"
  let root = "<e4 d4 c4>"
  d1 $ n (scale dascale (chord + melo) + (root + "<-12 -7>"))
      # s "superpiano"
  -- d1 $ every 3 (rev) $ n (scale dascale (melo) + root) # s "superpwm"
  d1 $ every 2 (arpeggiate)
          $ n (scale dascale (chord + melo) + (root + "<-12 -7>"))
          # s "superpiano"

do
let tonal root mode = note . (|+ root) . scale mode
d1 $ tonal "<0 3>" "major" $ "0 2 4 7"