anchor.diff:          listener.Start()
           while true do
               let ctx = listener.GetContext()
  +           
               ctx.Response.AddHeader("Access-Control-Allow-Origin", "*")
               worker(ctx)
   
  
positive.code:         o.Flush()
          ms.ToArray()
  
      let worker(ctx : HttpListenerContext) =
          Task.Factory.StartNew(fun () ->
              try
  
negative.code:                         match Map.tryFind "code" data, Map.tryFind "comp" data with
                              | Some code, Some comp ->
                                  printfn "starting compiler"
                                  let b = runInRandomDomain (fun () -> compile code comp |> System.Text.ASCIIEncoding.Default.GetString) |> System.Text.ASCIIEncoding.Default.GetBytes
  
                                  printfn "reply"
                                  ctx.Response.StatusCode <- 200
  