return join('/', @rows);
}
-# Returns a compact bit string describing the same data as fen().
-# This is encoded using a Huffman-like encoding, and should be
-# typically about 1/3 the number of bytes.
sub can_reach {
my ($board, $piece, $from_row, $from_col, $to_row, $to_col) = @_;