with Ada.Text_IO;
with Ada.Strings.Unbounded;
with CSV;


procedure STV is


    package My_CSV is new CSV;


    Result : My_CSV.CSV_Record;


begin


    Result := My_CSV.Parse_Line ("123,4""56,78""9764,3,""4,5"",");


    for Item of Result loop
        Ada.Text_IO.Put_Line (Ada.Strings.Unbounded.To_String (Item));
    end loop;


    Ada.Text_IO.Put_Line (My_CSV.Unparse_Record (Result));

end STV;