package Game_States is
type Game_State is limited interface;
type A_Game_State is access all Game_State'Class;
function Get_Game_Var