bpm 45
key d maj
Ground ::= .1 _2 .5 _2 .6 _2 .3 _2 .4 _2 .1 _2 .4 _2 .5 _2
Ground*2
V1 ::= '3 _2 '2 _2 '1 _2 7 _2 6 _2 5 _2 6 _2 7 _2
V2 ::= '1 '3 '2 7 6 '1 '3 7 '1 6 5 3 4 6 5 7
V3 ::= '5 '3 '2 7 '3 '1 '3 7 '4 '1 '3 '1 '4 '3 '2 7
Tune ::= V1 V2 V3
{Tune, Ground*3}
assert -*16 Tune == - _16 Tune
Canon ::= {Tune -*16, -*16 Tune}
{Canon, Ground*4}
Canon3 ::= {Tune -*32, -*16 Tune -*16, -*32 Tune}
{Canon3, Ground*5}
Fanfare ::= '1 5 '3 '5 _2 '3 '1 5 _2 3 5 '1 '3 _2 '1 _2
assert Fanfare*2 _2 == {Fanfare Fanfare} _2
{Fanfare*4, {Fanfare Fanfare} _2@-12, .1 _64}