anchor.diff:  
   [<EntryPoint>]
   let main argv =
  +    printfn "%s" directory
       if argv |> Array.isEmpty
       then
           Help ()
  
positive.code:           .Replace('/', Path.DirectorySeparatorChar)
      )
  
  let promptProjectName () =
      printfn "Give project name:"
      Console.Write("> ")
  
negative.code:     Path.Combine(directory, fileName) |> Fake.FileHelper.CreateFile
  
  let AddReference reference =
      match getProjects() with
      | [| project |] -> addReferenceToProject reference project.Name
      | [||] -> promptNoProjectFound()
      | _ ->
          let project = promptList ()
          addReferenceToProject reference project
  
  let ListReference() =
      match getProjects() with
      | [| project |] -> listReferencesOfProject project.Name
      | [||] -> promptNoProjectFound()
      | _ ->
          let project = promptList ()
          listReferencesOfProject project
  
  let Remove fileName =
      file fileName removeFileFromProject
  