package Applications.Ked is
pragma Elaborate_Body;
private
type Ked_Application is new Application with null record;
procedure Construct( this : access Ked_Application );
function Init( this : access Ked_Application ) return Boolean;
end Applications.Ked;