#USING POLY 3

/* Accordion */
$acc_1 = @3 @w44 @e1,12,120,100,2 @d-2;
$acc_2 = @3 @w48 @e1,9,30,110,2 @d1204;

/* Hentai */
$c{k,n,s} = [%k>f/:%n+:/%sd/:%n+:/<];
$ph1 = @pl ns-2 o5 l8
 /:
  $c{e,,+}r$c{<d>,,+}r$c{b,,+}r$c{g+,,+}>c-<
  $c{,,+}e$c{f,,+}e/$c{e-4,,+}$c{e,,+}>c-<
  $c{e,7,}r$c{<e>,7,}r$c{b+,7,}r$c{a,7,}>e<
  $c{,7,}e$c{f,7,}e$c{e-4,7,}$c{e,7,}>e<
 :/
 $c{g+,,+}e$c{b,,+}g+
 $c{a,7,}rr<fed4{cc-}> $c{a,7,}r[<e>a]r[<ae>>a]
;

t124
$acc_1 $ph1;
$acc_2 $ph1;