1. package Actors.Keen4 is 
  2.  
  3.     pragma Elaborate_Body; 
  4.  
  5. private 
  6.  
  7.     type Arachnut_Actor is new Actor with null record; 
  8.     type A_Arachnut_Actor is access all Arachnut_Actor'Class; 
  9.  
  10.     procedure Impulse( this : access Arachnut_Actor; name : Hashed_String ); 
  11.  
  12.     ---------------------------------------------------------------------------- 
  13.  
  14.     type Bounder_Actor is new Actor with null record; 
  15.     type A_Bounder_Actor is access all Bounder_Actor'Class; 
  16.  
  17.     procedure Impulse( this : access Bounder_Actor; name : Hashed_String ); 
  18.  
  19.     ---------------------------------------------------------------------------- 
  20.  
  21.     type Cloud_Actor is new Actor with null record; 
  22.     type A_Cloud_Actor is access all Cloud_Actor'Class; 
  23.  
  24.     procedure Impulse( this : access Cloud_Actor; name : Hashed_String ); 
  25.  
  26.     ---------------------------------------------------------------------------- 
  27.  
  28.     type Inchworm_Actor is new Actor with null record; 
  29.     type A_Inchworm_Actor is access all Inchworm_Actor'Class; 
  30.  
  31.     procedure Impulse( this : access Inchworm_Actor; name : Hashed_String ); 
  32.  
  33.     ---------------------------------------------------------------------------- 
  34.  
  35.     type Lick_Actor is new Actor with null record; 
  36.     type A_Lick_Actor is access all Lick_Actor'Class; 
  37.  
  38.     procedure Impulse( this : access Lick_Actor; name : Hashed_String ); 
  39.  
  40.     ---------------------------------------------------------------------------- 
  41.  
  42.     type Mimrock_Actor is new Actor with null record; 
  43.     type A_Mimrock_Actor is access all Mimrock_Actor'Class; 
  44.  
  45.     procedure Impulse( this : access Mimrock_Actor; name : Hashed_String ); 
  46.  
  47.     ---------------------------------------------------------------------------- 
  48.  
  49.     type Mushroom_Actor is new Actor with null record; 
  50.     type A_Mushroom_Actor is access all Mushroom_Actor'Class; 
  51.  
  52.     procedure Impulse( this : access Mushroom_Actor; name : Hashed_String ); 
  53.  
  54.     ---------------------------------------------------------------------------- 
  55.  
  56.     type Slug_Actor is new Actor with null record; 
  57.     type A_Slug_Actor is access all Slug_Actor'Class; 
  58.  
  59.     procedure Impulse( this : access Slug_Actor; name : Hashed_String ); 
  60.  
  61.     ---------------------------------------------------------------------------- 
  62.  
  63.     type Snake_Actor is new Actor with null record; 
  64.     type A_Snake_Actor is access all Snake_Actor'Class; 
  65.  
  66.     procedure Impulse( this : access Snake_Actor; name : Hashed_String ); 
  67.  
  68. end Actors.Keen4;