getAbbreviation :: Abbreviations -> Text -> Text -> Text
getAbbreviation (Abbreviations as) s v
    = fromMaybe "" $ M.lookup "default" as >>=
                     M.lookup (if s `elem` numericVars then "number" else s) >>=
                     M.lookup v
getAbbreviation :: Abbreviations -> Text -> Text -> Text
getAbbreviation (Abbreviations as) s v
    = fromMaybe "" $ M.lookup "default" as >>=
                     M.lookup (if s `elem` numericVars then "number" else s) >>=
                     M.lookup v
getAbbreviation (Abbreviations as) s v
    = fromMaybe "" $ M.lookup "default" as >>=
                     M.lookup (if s `elem` numericVars then "number" else s) >>=
                     M.lookup v