simple test

use Ada.Text_IO,Ada.Integer_Text_IO,  queues;
with Ada.Text_IO, Ada.Integer_Text_IO;
package queue_int is new queues (natural); 
use queue_int;
procedure main is 

--locals 
q : queue_int; 
i : natural;
begin 



	queue_int.Put(1,q);
	queue_int.Put(2,q);
	queue_int.Put(3,q);
	queue_int.Put(4,q);
	queue_int.Put(5,q);
	queue_int.Put(6,q);
	queue_int.Put(7,q);
	queue_int.Put(1,q);
	queue_int.Get(q,i);
	put(i);
	queue_int.Get(q,i);
	put(i);
	queue_int.Get(q,i);
	put(i);
	queue_int.Get(q,i);
	put(i);
	queue_int.Get(q,i);
	put(i);
	queue_int.Get(q,i);
	put(i);
end;