1. package Mouse is 
  2.  
  3.     pragma Pure; 
  4.  
  5.     type Mouse_Button is (Mouse_Left, Mouse_Right, Mouse_Middle); 
  6.  
  7.     function To_String( mb : Mouse_Button ) return String; 
  8.  
  9. end Mouse;