diff --git a/lib/common/type.ml b/lib/common/type.ml
index bb4aa72..5eec35f 100644
--- a/lib/common/type.ml
+++ b/lib/common/type.ml
@@ -244,7 +244,7 @@ module Pattern = struct
         | Concat (p1, p2) ->
             fprintf ppf "(%a . %a)" pp p1 pp p2
         | Many p ->
-            fprintf ppf "*(%a)" pp p
+            fprintf ppf "(%a)*" pp p
 
     let show = Format.asprintf "%a" pp
 end