anchor.diff:  [<EntryPoint>]
   let main argv = 
     startWebServer defaultConfig api1.App
  -  0 // return an integer exit code
  +  0 // return an integer exit codexit code
   
   (**
   
  
positive.code:     async {
        return! OK (DateTime.Now.ToString()) x
      }
  let main1 argv = 
    let time1 = GET >=> path "/time1" >=> now1
    startWebServer defaultConfig time1
    0 // return an integer exit code
  
negative.code: open Rest
  open FunnyDsl
  open Swagger
  open Suave
  open System
  
  let now : WebPart =
    fun (x : HttpContext) ->
  