Первое приближение
Переименовал класс + мелкие поправки
missing identifiers added to cp_pervasives
Поправил ошибку в регулярном выражении