-- Polymorphic stack example (package body)
-- in Ada from page 249 of
-- Kenneth C. Louden, Programming Languages
-- Principles and Practice 2nd Edition
-- Copyright (C) Brooks-Cole/ITP, 2003

package body Stacks is
  function top( s: Stack ) return T is
  begin
    return s.data;
  end top;
end Stacks;