-- filename listn-io.ads 1:29PM  11/2/95
-- defines child package of List, providing Put for lists 
-- given Put the Element type. We can't reasonably define a get 
-- without knowing how to distinguish ')' from the element type.

generic
with procedure Put(X : Element);
package listn.io is

procedure Put(l:pointer);

end listn.io;