sS chess_parseFENSymbol(char c) {
  if (isUpper(c))
    ret "white " + chess_parseFENSymbol2(lower(c));
  else if (isLower(c))
    ret "black " + chess_parseFENSymbol2(c);
  else
    ret "empty";
}

sS chess_parseFENSymbol2(char c) {
  if (c == 'k') ret "king";
  if (c == 'q') ret "queen";
  if (c == 'r') ret "rook";
  if (c == 'n') ret "knight";
  if (c == 'b') ret "bishop";
  if (c == 'p') ret "pawn";
  ret str(c); // unknown
}