anchor.diff:                  | "timeout" -> "ProgressEvent"
                   | _ -> e.Type
               (e.Name, eType))
  -        |> Map.ofList
  -
  -    let eNameToETypeWithoutCase =
  -        eNameToEType
  -        |> Map.toList
  -        |> List.map (fun (k, v) -> (k.ToLower(), v))
           |> Map.ofList
   
       let getEventTypeInInterface eName (i: Browser.Interface) =
  
positive.code:                     ps.Properties
                      |> Array.choose (fun p' ->
                          if p'.EventHandler.IsSome then
                              Some({ Name = p'.Name; EventName = p'.EventHandler.Value; EventType = getEventTypeFromHandler p' i })
                          else None)
                      |> List.ofArray
                  | None -> []
  
negative.code:         let output = StringBuilder()
          let stack = StringBuilder()
          let mutable curTabCount = 0
          member __.GetCurIndent() = String.replicate curTabCount "    "
  
          member __.Print content = Printf.kprintf (output.Append >> ignore) content
  
          member __.PrintToStack content = Printf.kprintf (stack.Append >> ignore) content
  
          member __.ClearStack () = stack.Clear() |> ignore
  
          member this.PrintStackContent () = this.Print "%s" (stack.ToString())
  
  