anchor.diff:  let toml_table, private pTableImpl = createParserForwardedToRef ()
   let toml_aot, private pArrOfTablesImpl = createParserForwardedToRef ()
   
  -let inline listToKey keys = String.concat "." keys
  -let inline keyToList (key:string) = key.Split '.' |> Array.toList
   
   
   let makeTable (vals: #seq<string*Value>): (_,_)table =
  
positive.code:     tbl.AddMany vals 
      tbl
  
  let toml_tablekey =  (pTableKey .>> tskipRestOfLine) 
  
  let toml_item = 
      ((toml_key .>>.  (skipEqs >>. toml_value)) .>> tskipRestOfLine);
  
  pTableImpl := 
      (pTableKey .>> tskipRestOfLine) 
      .>>. (many toml_item)
  
  pArrOfTablesImpl :=
      many ((pArrayOfTablesKey .>> tskipRestOfLine) .>>. many toml_item)
  
  
  let toml_parser (stream: CharStream<_>) =
  
negative.code:                             toml.[key] <- Value.Array(ls@arr); addItems keybase tl
                          | _ ->  addItems keybase tl
                      else
                          toml.Add (key,Value.Array arr); addItems key tl
                  | v ->  toml.Add (key,v); addItems keybase tl
  
          match stream.Peek () with
          | '#'  -> stream.SkipRestOfLine true; loop acc stream
  