while (exists($uciinfo{'pv' . $mpv})) {
$text .= sprintf " PV%2u", $mpv;
my $score = short_score(\%uciinfo, \%ficsinfo, $mpv);
while (exists($uciinfo{'pv' . $mpv})) {
$text .= sprintf " PV%2u", $mpv;
my $score = short_score(\%uciinfo, \%ficsinfo, $mpv);