more aggressive expression simplification

src/Convert/Simplify.hs

@@ -73,6 +73,8 @@ convertExpr info (Mux cc aa bb) =
         after = simplify before
 convertExpr _ (other @ Repeat{}) = traverseNestedExprs simplify other
 convertExpr _ (other @ Concat{}) = simplify other
+convertExpr _ (other @ BinOp{}) = simplify other
+convertExpr _ (other @ UniOp{}) = simplify other
 convertExpr _ other = other
 
 substitute :: Info -> Expr -> Expr

src/Language/SystemVerilog/AST/Expr.hs

@@ -171,6 +171,7 @@ readNumber n =
     readMaybe n' :: Maybe Int
     where
         n' = case n of
+            '3' : '2' : '\'' : 'd' : rest -> rest
             '\'' : 'd' : rest -> rest
             _ -> n