Alphabet

 a b c d e f g h i j k l m n 
 o p q r s t u v w x y z 
 á č đ ŋ š ŧ ž 
 à â ã ä å æ è é ê ë ì í î ï 
 ð ñ ò ó ô õ ö ø ù ú û ü ý þ 
 A B C D E F G H I J K L M N 
 O P Q R S T U V W X Y Z 	  
 Á Č Đ Ŋ Š Ŧ Ž 			  
 À Â Ã Ä Å Æ È É Ê Ë Ì Í Î Ï  
 Ð Ñ Ò Ó Ô Õ Ö Ø Ù Ú Û Ü Ý Þ ;

Sets

Small = a b c d e f g h i j k l m n 
        o p q r s t u v w x y z 
        á č đ ŋ š ŧ ž 
        à â ã ä å æ è é ê ë ì í î ï 
        ð ñ ò ó ô õ ö ø ù ú û ü ý þ ;


Rules

"Downcasing rule"
Cy:Cx => .#. _ Small:+ ;
where Cx in ( a b c d e f g h i j k l m n 
              o p q r s t u v w x y z 
              á č đ ŋ š ŧ ž 
              à â ã ä å æ è é ê ë ì í î ï 
              ð ñ ò ó ô õ ö ø ù ú û ü ý þ )
      Cy in ( A B C D E F G H I J K L M N 
              O P Q R S T U V W X Y Z 	  
              Á Č Đ Ŋ Š Ŧ Ž 			  
              À Â Ã Ä Å Æ È É Ê Ë Ì Í Î Ï  
              Ð Ñ Ò Ó Ô Õ Ö Ø Ù Ú Û Ü Ý Þ ) 
              matched ;
              
! I am not quite sure how this should be compiled.