diff --git a/System/Random/MWC.hs b/System/Random/MWC.hs
index 5477c60..5e38429 100644
--- a/System/Random/MWC.hs
+++ b/System/Random/MWC.hs
@@ -27,11 +27,11 @@
 -- 'createSystemSeed' or 'withSystemRandomST' (All examples assume
 -- that @System.Random.Stateful@ is imported)
 --
--- $$$ g <- createSystemRandom
--- $$$ uniformM g :: IO Int
+-- AAA g <- createSystemRandom
+-- AAA uniformM g :: IO Int
 -- ...
 --
--- $$$ withSystemRandomST $ \g -> uniformM g :: IO Int
+-- AAA withSystemRandomST $ \g -> uniformM g :: IO Int
 -- ...
 --
 -- Deterministically create generator from given seed using
@@ -545,10 +545,10 @@ withSystemRandomST act = do
 --   This function is unsafe and for example allows STRefs or any
 --   other mutable data structure to escape scope:
 --
---   $$$ ref <- withSystemRandom $ \_ -> newSTRef 1
---   $$$ withSystemRandom $ \_ -> modifySTRef ref succ >> readSTRef ref
+--   AAA ref <- withSystemRandom $ \_ -> newSTRef 1
+--   AAA withSystemRandom $ \_ -> modifySTRef ref succ >> readSTRef ref
 --   2
---   $$$ withSystemRandom $ \_ -> modifySTRef ref succ >> readSTRef ref
+--   AAA withSystemRandom $ \_ -> modifySTRef ref succ >> readSTRef ref
 --   3
 withSystemRandom :: PrimBase m
                  => (Gen (PrimState m) -> m a) -> IO a