# rook
substr($nb[0], 7, 1, '-');
- substr($nb[0], 5, 1, 'R');
+ substr($nb[0], 5, 1, 'r');
return ('0-0', prettyprint_pv(\@nb, @pvs));
}
# rook
substr($nb[0], 0, 1, '-');
- substr($nb[0], 3, 1, 'R');
+ substr($nb[0], 3, 1, 'r');
return ('0-0-0', prettyprint_pv(\@nb, @pvs));
}