anchor.diff:          listener.Start()
           while true do
               let ctx = listener.GetContext()
  +           
               ctx.Response.AddHeader("Access-Control-Allow-Origin", "*")
               worker(ctx)
   
  
positive.code:                         match Map.tryFind "code" data, Map.tryFind "comp" data with
                              | Some code, Some comp ->
                                  printfn "starting compiler"
                                  let b = compile code comp
  
                                  printfn "reply"
                                  ctx.Response.StatusCode <- 200
  
negative.code:                 | :? System.OperationCanceledException as e -> 
                      Interlocked.Decrement(&workersRunning) |> ignore
                  | e ->
                      //printfn "ERROR: %A" e
                      Interlocked.Decrement(&workersRunning) |> ignore
  
          ) |> ignore
  