-- Exercise 8.b
-- write the correct type and the definition of
aboveList :: [Picture] -> Picture
aboveList pictures = if length pictures == 1
                       then head pictures
                      else
                       above (head pictures) (aboveList (tail pictures))
aboveList :: [Picture] -> Picture
aboveList pictures = if length pictures == 1
                       then head pictures
                      else
                       above (head pictures) (aboveList (tail pictures))
aboveList pictures = if length pictures == 1
                       then head pictures
                      else
                       above (head pictures) (aboveList (tail pictures))