Updated from js usage

1 files changed, 7 insertions, 1 deletions

diff --git a/src/bin/transcriptor.ml b/src/bin/transcriptor.ml
index d759452..dc83634 100644
--- a/src/bin/transcriptor.ml
+++ b/src/bin/transcriptor.ml
@@ -17,7 +17,13 @@ let process (optional_line : string option) =
         (fun t-> Sounds.repr (module Repr.Anatar) t)
         result in
     let () = match res2 with
-      | Ok response -> print_endline response
+      | Ok response -> print_endline ( "Anatar : " ^ response)
+      | Error err -> print_endline err in
+    let res3 = Result.map
+        (fun t-> Sounds.repr (module Repr.Telcontar) t)
+        result in
+    let () = match res3 with
+      | Ok response -> print_endline ( "Telcontar : " ^ response)
       | Error err -> print_endline err in
     ()