sub IsGreeklish {
         return <<'END';
     +utf8::IsGreek
     +utf8::IsInherited
     END
     }