-- Exercise 2.a
-- write a recursive definition for
besideList :: [Picture] -> Picture
besideList pictures = if length pictures == 1
                       then head pictures
                      else
                       beside (head pictures) (besideList (tail pictures))
besideList :: [Picture] -> Picture
besideList pictures = if length pictures == 1
                       then head pictures
                      else
                       beside (head pictures) (besideList (tail pictures))
besideList pictures = if length pictures == 1
                       then head pictures
                      else
                       beside (head pictures) (besideList (tail pictures))