PACKAGE TTY IS 
   PROCEDURE OutS;
END TTY;

PACKAGE BODY TTY IS
   PROCEDURE OutS is
   BEGIN
     null;
   END OutS;
END TTY;

WITH TTY;
PROCEDURE Test IS
  PACKAGE IO RENAMES TTY;
BEGIN
  IO.OutS;
END Test;
