with Alien;
with Utils; use Utils;
package Superiour is
   type Acme is new Alien.Object with null record;
   function Shred (Self : Object) return String;
end Superiour;