diff --git a/src/Scat.hs b/src/Scat.hs
index 69b9c08..78a4634 100644
--- a/src/Scat.hs
+++ b/src/Scat.hs
@@ -105,6 +105,9 @@ getSchema = do
         -- Alphanumeric.
         "alpha" -> return alphanumeric
 
+        -- Paranoiac
+        "parano" -> return paranoiac
+
         -- PIN.
         'p' : 'i' : 'n' : xs | [(n, "")] <- reads xs -> return $ pin n
 
diff --git a/src/Scat/Schemas.hs b/src/Scat/Schemas.hs
index ebe622f..e495f84 100644
--- a/src/Scat/Schemas.hs
+++ b/src/Scat/Schemas.hs
@@ -10,6 +10,7 @@ module Scat.Schemas
     -- * Passwords
     , safe
     , alphanumeric
+    , paranoiac
 
     -- * PIN
     , pin
@@ -33,6 +34,10 @@ import Paths_scat
 -- | Password builder.
 type Schema = Builder String
 
+-- | Paranoiac mode, entropy of 512 bits.
+paranoiac :: Schema
+paranoiac = replicateM 78 ascii
+
 {- | Generates a password of length 18,
      containing upper case letters,
      lower case letters,