anchor.diff:  
   let copyPics() =
       try
  -      !! (__SOURCE_DIRECTORY__ @@ "slides/images/*.*")
  +      !! (slidesDir @@ "images/*.*")
         |> CopyFiles (outDir @@ "images")
       with
       | exn -> traceImportant <| sprintf "Could not copy picture: %s" exn.Message    
  
positive.code: open Suave.Http.Files
  
  let outDir = __SOURCE_DIRECTORY__ @@ "output"
  
  Target "Clean" (fun _ ->
      CleanDirs [outDir]
  
negative.code:     Process.Start "http://localhost:8083/index.html" |> ignore
  
  Target "GenerateSlides" (fun _ ->
      !! (slidesDir @@ "*.md")
        ++ (slidesDir @@ "*.fsx")
      |> Seq.map fileInfo
      |> Seq.iter generateFor
  )
  
  Target "KeepRunning" (fun _ ->
      use watcher = new FileSystemWatcher(FullName slidesDir,"*.*")
      watcher.EnableRaisingEvents <- true
      watcher.IncludeSubdirectories <- true
      watcher.Changed.Add(handleWatcherEvents)
  