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