anchor.diff:      | true  -> dt
   
   let pDateTime_toml : Parser<_> = manySatisfy (isDigit|?|isAnyOf['T';':';'.';'-';'Z']) |>> toDateTime
  -
  -let toml_int      = pInt64_toml    |>> Value.Int
  -let toml_float    = pFloat_toml    |>> Value.Float
  -let toml_datetime = pDateTime_toml |>> Value.DateTime
  -
  -(*| Simple Value Parsers |*)
  -
  -let pBool_toml : Parser<_> = (pstring "false" >>% false) <|> (pstring "true" >>% true)
  -
  -let toml_bool = pBool_toml |>> Value.Bool
  +let pBool_toml     : Parser<_> = (pstring "false" >>% false) <|> (pstring "true" >>% true)
  +
  +let toml_int      = pInt64_toml     |>> Value.Int
  +let toml_float    = pFloat_toml     |>> Value.Float
  +let toml_datetime = pDateTime_toml  |>> Value.DateTime
  +let toml_bool     = pBool_toml      |>> Value.Bool
  +let toml_string   = pString_toml    |>> Value.String
   
   
   (*| Key Parsers |*)
  
positive.code: let ``|'''|`` : Parser<_> = prevCharNot isEscChar >>. pstring "\'\'\'"
  let skipEqs   : Parser<_> = skipChar '=' >>. skip_tspcs
  
  
  let combo = [ 0x00..0x1f ] |> List.reduce (fun acc elm -> acc ||| elm)
  
  // let [<Literal>] unicodeCtrlChar = combo
  let [<Literal>] unicodeCtrlChar = 0x00 ||| 0x01 ||| 0x1f // ||| ... 
  
  
  // unicode control chars
  let ctrlChar  : Parser<_> = 
  
negative.code: let mergeResult (rs:Reply<_> list) =
      let output = ([],rs) ||> List.fold (fun acc elm -> elm.Result::acc)
      Reply (Ok,output,NoErrorMessages)
  
  
  // split the TOML file up into sections by their table keys
  let section_parser (stream: CharStream<_>) =
  