-- Exercise 3
-- write the correct type and the definition for
fenCharToPicture :: Char -> Picture
fenCharToPicture 'r' = rook
fenCharToPicture :: Char -> Picture
fenCharToPicture 'r' = rook
fenCharToPicture 'r' = rook