# zamiana rdzenia
change_core = ("dr." : "doktor") | ("prof." : "profesor") | ("hab." : "habilitowany") | ("ks." : "ksiądz") | ("mgr.": "magister") | ("dr": "doktor") | ("mgr": "magister")  

Rule001_02 = CDRewrite [change_core, "", "', Any*];
export PROCESS = Optimize[CDRewrite[change_core, "", "", Any*]];