hughsimpson

sub getPartial(Str $a, Rat $x, Rat $y) {
   my @comps = $x + $y, $x *$y, $x - $y, $x ** $y, $x / $y;
   my @agg = "($a " «~« <+ * - ** /> »~» " $y)";
   return @comps Z=> @agg
}

sub comp(@ps, %a) {
   if @ps.elems == 0 {return %a}
   my ($h, @t) = @ps;
   if %a.elems == 0 {return comp(@t, $h => $h.Str)}