-- Exercise 6.b
-- write the correct type and the definition of
fenRowToPicture :: [Char] -> Picture
fenRowToPicture str = if isFenRow str then besideList (fenCharsToPictures str)
                      else Empty
fenRowToPicture :: [Char] -> Picture
fenRowToPicture str = if isFenRow str then besideList (fenCharsToPictures str)
                      else Empty
fenRowToPicture str = if isFenRow str then besideList (fenCharsToPictures str)
                      else Empty