with ada.text_io;
with ada.integer_text_io;
procedure testAccess is


type cell;

type link is access cell;

type cell is
  record
     value : integer;
	  next  : link;
  end record;
 
 myLink : link;
 
 begin
   myLink := new cell;


   myLink.next := null;
   myLink.value := 37;
   ada.integer_text_io.put (myLink.value);
	
	
end testAccess;