-- filename listn-io.adb 2:19PM  11/2/95

with text_io;
use text_io;
package body listn.io is

procedure Put(l:pointer) is
begin
  if l=null
    then return;
    else put(l.data);
         put(' ');
         Put(l.next);
  end if;
end Put;

end listn.io;