-- ==========================================================--
--
leIsTailChar :: Char -> Bool

leIsTailChar c 
   = isLower c || 
     isUpper c || 
     isDigit c || 
     c == '\'' || 
     c == '_'  ||
     c == '\''
leIsTailChar :: Char -> Bool
leIsTailChar c 
   = isLower c || 
     isUpper c || 
     isDigit c || 
     c == '\'' || 
     c == '_'  ||
     c == '\''
leIsTailChar c 
   = isLower c || 
     isUpper c || 
     isDigit c || 
     c == '\'' || 
     c == '_'  ||
     c == '\''