anchor.diff:          let data = loadData rowTypes (csv ()) 
           let dataArrays = fieldsToArrayNDs pars.Missing pars.CategoryEncoding rowTypes categoryTables pars.TargetCols data 
           let samples = toCsvSamples pars.TargetCols dataArrays 
  -        printInfo pars rowTypes data
  +        printInfo pars rowTypes data samples
           samples
   
       let loadTextFile (pars: Parameters) path =
  
positive.code:             let targets = targets |> List.map snd |> List.map ArrayND.atLeast1D
              let inputs = inputs |> List.map snd |> List.map ArrayND.atLeast1D
              {Input=ArrayND.concat 0 inputs; Target=ArrayND.concat 0  targets}
          )
      
  
      let printInfo (pars: Parameters) (rowTypes: RowTypes) (data: RowData seq) =
          let printField isHead s = 
              let fieldLen = 17
              let pad = if isHead then "-" else " " 
  
negative.code:             else
                  headPrintf "%d" i
          printfn ""
          for row, smpl in Seq.take 5 (Seq.zip data samples) do
              for d in row do
                  fieldPrintf "%A" d
              printfn ""
              //printfn "Input=%s   Target=%s" smpl.Input.Full smpl.Target.Full
  
      let loadFromReader (pars: Parameters) (reader: unit -> TextReader) = 
          let csv () = CsvFile.Load(reader(), separators=pars.Separators, quote='"', hasHeaders=false)
  