8 say "\nadd: $res\nto: $_";
15 for my $i (0 .. length($res)-1) {
16 $depth++ if substr($res, $i, 1) eq '[';
17 $depth-- if substr($res, $i, 1) eq ']';
21 next if $res !~ /\G\[(\d+),(\d+)\]/;
24 $res =~ s/\G\[(\d+),(\d+)\]/X/;
28 $res =~ s/(\d+)([^\d]*X)/($1+$l).$2/e;
29 $res =~ s/(X[^\d]*)(\d+)/"$1".($2+$r)/e;
36 if ($res =~ s|\d{2,}|'['.int($&/2).','.int(($&+1)/2).']'|e) {
44 1 while $res =~ s/\[(\d+),(\d+)\]/3*$1+2*$2/e;