exec perl -x $0 >dunno.abc
#!perl
print <<EOT;
X: 0
T: Dunno
K: C
M:2/4
Q:100
V:1
EOT
print map(join("\n",
map("=eGcf eGce dGBd gfe$_", qw(d g)),
map("=afab $_",
"gcgc",
"gcgc",
"c'gc'd'"),
map("_e'd'b$_",qw(_a _a _a g)),""),
,1..2),
join("\n",map("c' c=eg_age_b",1..2),"c'4");
Comment
Index
Previous
(Final Exam went well)
Next
(MediCal)