isValidNamePart :: String -> Bool
  isValidNamePart szo = (and [isLetter x | x <- szo]) && (and [isLower x | x <- tail szo])  && (isUpper kezdobetu) where
    kezdobetu = head szo