Container loop example.  (Created while debugging GNAT-GPL-2013.)