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"