anchor.diff:          reader.ReadToEnd()
   
       /// writes a file
  -    let private toFile (fileName:string) (contents:string) =
  +    let private toFile fileName (contents:string) =
           use file = new FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write, FileShare.ReadWrite)
           use writer = new StreamWriter(file)
           writer.Write contents
  
positive.code: 
          // mandatory
          let TemplateName = (args.GetResult (<@ TemplateName @> ))
  
          let html =
            match (args.GetResult (<@ ModelJson @>, "" ))
                  (args.GetResult (<@ ModelFile @>, "" )) with
              | "",""   -> failwithf "--modeljson or --modelfile is required"
              | "",file -> generateFromFile TemplateName file
              | json,_  -> generateFromJson TemplateName json
  
  
          match (args.GetResult (<@ OutputFile @>, "" )) with
              | "" -> print html
              | output -> html  |> outputAs output
  
          0 // return an integer exit code
  
negative.code:             |> Hash.FromDictionary
  
      and private asModelValue (value: JsonValue) =
          match value.GetType().Name with
           | "String" ->   value.AsString() :> obj
           | "Array" ->    value.AsArray() |> Seq.map asModelValue :> obj
           | "Record" ->   value |> asModel :> obj
           | _ -> value.AsString() :> obj
  
      /// Use the ruby naming convention by default
      do Template.NamingConvention <- DotLiquid.NamingConventions.RubyNamingConvention()
  