



[01;34mwith[m Libsens[31m.[mMal[31m;[m                       [01;34muse[m Libsens[31m.[mMal[31m;[m
[01;34mwith[m Libsens[31m.[mCommon[31m;[m                    [01;34muse[m Libsens[31m.[mCommon[31m;[m

[01;34mwith[m Libsens[31m.[mArch[31m;[m                      [01;34muse[m Libsens[31m.[mArch[31m;[m
[01;34mwith[m Libsens[31m.[mMIDI[31m.[mMessages[31m;[m             [01;34muse[m Libsens[31m.[mMIDI[31m.[mMessages[31m;[m

[01;34mgeneric[m

[01;34mpackage[m Libsens[31m.[mRhetorica [01;34mis[m
   

   
   
   [01;34msubtype[m Valid_Category_Type [01;34mis[m Category_Type [01;34mrange[m lead[31m..[msplit[31m;[m
   
   
   
   [01;34mtype[m Composer_Type[31m;[m
      
   
   [01;34mtask[m [01;34mtype[m [01;30mCompositor_Type[m [31m([mComposer [31m:[m [01;34maccess[m Composer_Type[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mStorage_Size[m [31m([m[35m16777216[m[31m);[m
      [01;34mentry[m [01;30mInitialize[m[31m([mFilename [31m:[m [01;34min[m [32mString[m[31m);[m
      [01;34mentry[m Halt[31m;[m      
      
      [01;34mentry[m [01;30mRespond[m[31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Channel [31m:[m [01;34min[m Channel_Type[31m;[m sequence [31m:[m [01;34mout[m Seq_Vectors[31m.[mvector[31m);[m
   [01;34mend[m Compositor_Type[31m;[m
   
   [01;34mtype[m [01;30mComposer_Type[m [31m([mForm [31m:[m Form_Type[31m;[m
		       cat [31m:[m Valid_Category_Type[31m)[m [01;34mis[m [01;34mlimited[m
			  
      [01;34mrecord[m	 
	 Arche                  [31m:[m [01;34maccess[m Arche_Type'Class[31m;[m	 
	 Compositor             [31m:[m [01;30mCompositor_Type[m[31m([mComposer_Type'[01;34mAccess[m[31m);[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Composer_Access [01;34mis[m [01;34maccess[m [01;34mall[m Composer_Type[31m;[m          

[01;34mend[m Libsens[31m.[mRhetorica[31m;[m
