anchor.diff:    ]
     """ page.AsType page.AsType (dataReaderPropertiesTemplate page)
   
  +(*
  +
  +INSERT
  +
  +*)
  +
   let insertColumns page =
     page.Fields
     |> List.map (fun field -> field.AsDBColumn)
  
positive.code:   |> List.map (createTableTemplate site.AsDatabase)
    |> flatten
  
  let conversionTemplate field =
    match field.FieldType with
    | Id           -> "getInt64"
  
negative.code: GRANT USAGE ON SCHEMA {0} to {0};
  ALTER DEFAULT PRIVILEGES IN SCHEMA {0} GRANT SELECT ON TABLES TO {0};
  GRANT CONNECT ON DATABASE "{0}" to {0};""", dbname)
  
  (*
  
  CREATE TABLES
  
  *)
  
  let columnTypeTemplate field =
    match field.FieldType with
  