anchor.diff:  ﻿module Program
  -
  -open System.Text
  -open System.Net
   
   open Suave
   open Suave.Filters
  
positive.code: 
  [<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
      0
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"
  