”…any other language applying use…”

There are some more:

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;
[download]