class list
feature
  next: list;
  item: integer;

  create(i: integer) is
  do
    put(i)
  end;

  put(i:integer) is
  do
    item:=i
  end;

  add(n: list) is
  do
    next:=n
  end;

end