Added the paranoiac schema.

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
 

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,