package Adam.Values is
   function Value(Default : in Command_Type;
		  Command_Line : in String) return Command_Type;
   
   function Sub_Value(Default : in Sub_Command_Type;
		  Command_Line : in String) return Sub_Command_Type;
   
end Adam.Values;