anchor.diff:          let ty = moldToType mold molder
           ty
   
  -    let make forceIdentification defaultAsRandom seed rules =
  -        { ForceIdentification = forceIdentification
  -          DefaultAsRandom = defaultAsRandom
  -          Random = Random seed 
  -          Rules = rules
  +    let make randomizing requireIdentification randomizingSeed instantiationRules =
  +        { Randomizing = randomizing
  +          RequireIdentification = requireIdentification
  +          Random = Random randomizingSeed 
  +          InstantiationRules = instantiationRules
             Cache = Dictionary<Path option * Type, Mold ref> () }
   
       let makeEmpty () =
  
positive.code:         | IPAddress -> typeof<System.Net.IPAddress>
          | Guid -> typeof<System.Guid>
  
      let rec moldToType mold molder =
          match mold with
          | Primitive (_, primitive) -> moldToPrimitive primitive molder
  
negative.code:                 let elementMold = typeToMold3 None elementType molder
                  moldRef := List (pathOpt, elementMold)
              else
                  if molder.RequireIdentification
                  then failwith "Could not identity a type for molding."
                  else moldRef := Unidentified pathOpt
              moldRef.Value
          | (true, moldRef) -> moldRef.Value
  
      let private moldToPrimitive primitive (_ : Molder) =
          match primitive with
          | Unit -> typeof<FSharp.Core.Unit>
          | Boolean -> typeof<System.Boolean>
  