anchor.diff:  
   [<EntryPoint>]
   let main _ = 
  -    let cfg = { defaultConfig with
  -                    bindings = [ HttpBinding.create HTTP IPAddress.Loopback 8080us ] }
       let app = choose [ POST >=> path "/format" >=> Domain.handle'' ]
  -    startWebServer cfg app
  +    startWebServer defaultConfig app
       0
positive.code: ﻿module Program
  
  open System.Text
  open System.Net
  
  open Suave
  open Suave.Filters
  
negative.code: open Suave.Successful
  
  module Domain = 
      open System.Text
      open System.IO
      open Fantomas
      open Microsoft.FSharp.Compiler.SourceCodeServices
  
      let private handle text = 
          let path = Path.GetTempFileName() |> sprintf "%O.fs"
  