diff --git a/randcool/randcool.hs b/randcool/randcool.hs
index d3eb3d37e8a0ab2c73ed47f738bd035046ba99f5..e09592ffd407250400a8e5cd2bf198ded5e1f687 100644
--- a/randcool/randcool.hs
+++ b/randcool/randcool.hs
@@ -43,8 +43,8 @@ instance Mod K where
 newtype G = G Nat
 
 instance Mod G where
-  showDia (G n) = showString "{>"  . shows n . showString " r}"
-  showBox (G n) = showString "{<=" . shows n . showString " r}"
+  showDia (G n) = showString "{>= "  . shows n . showString " r}"
+  showBox (G n) = showString "{<= " . shows n . showString " r}"
 
 
 newtype CL = CL I.IntSet