1. package Applications.Ked is 
  2.  
  3.     pragma Elaborate_Body; 
  4.  
  5. private 
  6.  
  7.     type Ked_Application is new Application with null record; 
  8.  
  9.     procedure Construct( this : access Ked_Application ); 
  10.  
  11.     function Init( this : access Ked_Application ) return Boolean; 
  12.  
  13. end Applications.Ked;