package Society is
------------------------------------------------------------------------
--| Dining Philosophers - Ada 95 edition
--| Society gives unique ID's to people, and registers their names
--| Author: Michael B. Feldman, The George Washington University 
--| Last Modified: January 1996                                     
------------------------------------------------------------------------

  subtype Unique_DNA_Codes is Positive range 1..5;

  Name_Register : array(Unique_DNA_Codes) of String(1..18) :=

     ("Edsger Dijkstra   ",
      "Alan Burns        ",
      "Chris Anderson    ",
      "Tucker Taft       ",
      "Jean Ichbiah      ");

end Society;