-- Exercise 8.a
-- write a recursive definition for
fenRowsToPictures :: [String] -> [Picture]
fenRowsToPictures str = if length str == 1 then fenRowToPicture(head str) : []
                          else  [fenRowToPicture (head str)] ++ (fenRowsToPictures (tail str))
fenRowsToPictures :: [String] -> [Picture]
fenRowsToPictures str = if length str == 1 then fenRowToPicture(head str) : []
                          else  [fenRowToPicture (head str)] ++ (fenRowsToPictures (tail str))
fenRowsToPictures str = if length str == 1 then fenRowToPicture(head str) : []
                          else  [fenRowToPicture (head str)] ++ (fenRowsToPictures (tail str))