1 files changed, 32 insertions, 0 deletions
diff --git a/src/stv.adb b/src/stv.adb
new file mode 100644
index 0000000..3297da2
--- /dev/null
+++ b/src/stv.adb
@@ -0,0 +1,32 @@
+
+
+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;
+
+