-- Exercise 1
-- write the correct type and the definition for
isFENChar :: Char -> Bool
isFENChar ch = elem (toLower ch) ['r', 'n', 'b', 'q', 'k', 'p', '/'] || isDigit ch
isFENChar :: Char -> Bool
isFENChar ch = elem (toLower ch) ['r', 'n', 'b', 'q', 'k', 'p', '/'] || isDigit ch
isFENChar ch = elem (toLower ch) ['r', 'n', 'b', 'q', 'k', 'p', '/'] || isDigit ch