The Ada Program: unique.ads

  1 package Unique is
  2 
  3    -- add a word to the list (if not already there)
  4    procedure Add (Word: String);
  5 
  6    -- print all the words and delete the list
  7    procedure Print_All;
  8 
  9 end Unique;