package Processes is
type Process is limited interface;
type A_Process is access all Process'Class;
function Get_Process_Name
procedure Tick