tyka = Optimize[ vowels consonant* ("tyka""[EOS]") | ("tyka" " ") ];
nietyka = Optimize[ vowels consonant* vowels consonant* ("[EOS]") | (" ") ];

TASK= Optimize[
        CDRewrite[("":"'") , "", tyka , allChars*]
        @CDRewrite[("":"'") , "", nietyka , allChars*]
];

naprawTASK = Optimize[
    CDRewrite[("'":""), "", vowels consonant*  "'", allChars* ]
];

export PROCESS = Optimize[ TASK @ naprawTASK];