anchor.diff:  
           // mandatory
           let TemplateName = (args.GetResult (<@ TemplateName @> ))
  -
  -        let html =
  -          match (args.GetResult (<@ ModelJson @>, "" ))
  -                (args.GetResult (<@ ModelFile @>, "" )) with
  +        let output = args.GetResult (<@ OutputDir @>, "." )
  +        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
  -
  +            | "",file ->
  +              for f in file.Split [|' '|] do
  +                let (text,fn) = generateFromFile TemplateName f
  +                toFile (output ++ fn) text
  +            | json,_  ->
  +                generateFromJson TemplateName json |> Console.Write
           0 // return an integer exit code
  
positive.code:         reader.ReadToEnd()
  
      /// writes a file
      let private toFile (fileName:string) (contents:string) =
          use file = new FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write, FileShare.ReadWrite)
          use writer = new StreamWriter(file)
          writer.Write contents
  
negative.code: open Nessos.Argu
  
  module Renderer =
      let (++) a b = System.IO.Path.Combine(a,b)
      // -------------------------------------------------------------------------------------------------
      // Registering things with DotLiquid
      // -------------------------------------------------------------------------------------------------
  