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