exprToPred path (UnicodeStrings ss _) = return $ pUnicodeStrings ss
exprToPred path (UnicodeStrings ss _) = return $ pUnicodeStrings ss
exprToPred path (UnicodeStrings ss _) = return $ pUnicodeStrings ss