exportExp (Op s _ exps@[e1, e2] _)
    | elem (simpleName s) infixOps =
        concat ["(", exportExp e1, simpleName s, exportExp e2, ")"]
    | otherwise = concat [simpleName s, "(", exportExps exps, ")"]
exportExp (Op s _ exps@[e1, e2] _)
    | elem (simpleName s) infixOps =
        concat ["(", exportExp e1, simpleName s, exportExp e2, ")"]
    | otherwise = concat [simpleName s, "(", exportExps exps, ")"]
exportExp (Op s _ exps@[e1, e2] _)
    | elem (simpleName s) infixOps =
        concat ["(", exportExp e1, simpleName s, exportExp e2, ")"]
    | otherwise = concat [simpleName s, "(", exportExps exps, ")"]