かかりこ

$init=t100;
$base1=b-<fb-<d>b-f> g<dgb-gd> <cgb-<f>b-f> f<f<ce-c>a>;
$base2=e-b-<b-gb-g> f<cafaf> b-<fb-fb-f> g<gbgbg> <cgb-gb-g> f<cacac> /: b-<fb-fb-f> :/;
$base3=/:e-b-<b-gb-g>:/ /:d<fb-fb-f>:/ </:cgb-gb-g:/> b-<fb-fb-f> a-<fa-fa-f>;
$base4=/:e-b-<b-gb-g>:/ db-<b-fb-f> g<gbgbg> <cg<c>g<c>g> f<cacac> b-<fb-fb-f> $base1;
$melo0=r2.r2.r2.r2;
$melo1=fb-2f<d2>b-<f1>r;
$melo2=<fg2.>a2<gf2.d2.d2.d2c>b-1r;
$melo3=b-b-2.a2<c> b-2.f2. e-2de-2f d1&d;
$melo4=b-b-2.a2<c> b-2f<f2. e-2.d2c>b-1&b- r2.r2.r2.;
$init @3o5l4v10 $melo0 /:99 /: /: $melo1 :/ $melo2 :/ $melo3 $melo4 :/;
$init @2o3l8v15 $base1 /:99 /: /: $base1 :/ $base2 :/ $base3 $base4 :/;

マクロ使ってみた。