package cola is
   type elemento is range -100..100;
   function vacia return boolean;
   procedure poner (E: elemento);
   procedure quitar (E: out elemento);
end cola;