anchor.diff:              |> sprintf """#load "%s" """
             | ReferenceFrameworkAssembly name ->
               sprintf """#r "%s" """ name
  -          | PrintStatement text -> 
  -            let escape = 
  -              // /!\ /!\ /!\ TODO escape text /!\ /!\ /!\
  -              id
  -            sprintf @"System.Console.WriteLine(""%s""); " (escape text)
       ]
       
       let text =
  
positive.code: 
      match lines with
      | [] -> DoNotGenerate
      | xs -> List.append xs [ PrintStatement (sprintf "%s Loaded" packageName) ] |> Generate
  
    let writeFSharpScript scriptFile input =
      let pieces = [
  
negative.code:   | ReferenceAssemblyFile      of FileInfo
    | ReferenceFrameworkAssembly of string
    | LoadScript                 of FileInfo
  
    type ScriptGenInput = {
        PackageName                  : PackageName
  