diff --git a/src/Data.Proquint.purs b/src/Data.Proquint.purs
index c38502c..40f3caa 100644
--- a/src/Data.Proquint.purs
+++ b/src/Data.Proquint.purs
@@ -231,7 +231,7 @@ derive instance Generic Proquint _
 derive instance Ord Proquint
 derive instance Eq Proquint
 instance Show Proquint where
-  show = genericShow
+  show pq = "(fromString " <> show (toString pq) <> ")"
 
 pad :: Int -> Proquint -> Proquint
 pad n pq@(Proquint segs) =