regexp Consonant = ["bcdfghjklmnpqrstvwxz"] ; 
regexp Vowel = ["aeiouyåäö"] ; 
regexp Letter = Consonant | Vowel ; 
regexp Stem = Letter* Vowel Letter* ; 

rule d1 [stick:Stem] 
= 
stick+"a" 
{ 
(stick+"a" | stick+"an" | stick+"as" | stick+"ans") & 
(stick+"or" | stick+"orna" | stick+"ors" | stick+"ornas") 
} ;