anchor.diff:          [   textUpdateArea
               getParseResult model
           ]
  +    |> List.singleton
  +    |> R.div [ ClassName "container is-fluid" ]
  +    |> List.singleton
  +    |> R.section [ ClassName "section" ]
   
   
   
  
positive.code:         [   ClassName "table is-bordered is-narrow is-hoverable is-fullwidth"
          ]
  
  let getParseResult (model: Types.Model) =
      let getSuccessTable (status: FLexer.Core.ClassifierStatus<_>) =
          let getText text = if System.String.IsNullOrWhiteSpace(text) then "(whitespace)" else text
  
          status.Consumed
          |> List.rev
          |> List.mapi(fun index t ->
              R.tr [ Id <| index.ToString() ]
                  [   R.td [] [ str <| t.StartCharacter.ToString() ]
                      R.td [] [ str <| t.EndCharacter.ToString() ]
                      R.td [] [ str <| getText t.Text ]
                      R.td [] [ str <| t.Classification.ToString() ]
                  ]
          )
          |> createParseResultSuccessTable
          
      match model.ParseResult with
      | Types.ParseResult.JSONParse result ->
          match result with
          | Ok(jsonResult, status) -> true, getSuccessTable status
          | Error(error) -> false, getSuccessTable error.LastStatus
      | Types.ParseResult.SQLParse result ->
          match result with
          | Ok(sqlResult, status) -> true, getSuccessTable status
          | Error(error) -> false, getSuccessTable error.LastStatus
      |> (fun (isSuccess, table) ->
          R.div []
              [   R.h2 [ ClassName "title" ] [ str (if isSuccess then "Success" else "Incomplete") ]
                  table
              ]
      )
  
  
negative.code:             CurrentPage = Types.Page.ExampleSQL
          }, Cmd.Empty
  
  let createTokenTableFromRows rows =
      [   R.thead []
              [   R.tr []
                      [   R.th [] [ str "StartChar" ]
  