Update tengwar

1 files changed, 14 insertions, 5 deletions

diff --git a/src/bin/transcriptor.ml b/src/bin/transcriptor.ml
index f86852f..77a7b6f 100644
--- a/src/bin/transcriptor.ml
+++ b/src/bin/transcriptor.ml
@@ -5,12 +5,21 @@ let process (optional_line : string option) =
   | None -> ()
   | Some line ->
 
-    let res = Result.map
+    let result =(T.Reader.process line) in
+
+    let res1 = Result.map
         (fun t-> Sounds.repr (module Repr.Default) t)
-        (T.Reader.process line) in
-    match res with
-    | Ok response -> print_endline response
-    | Error err -> print_endline err
+        result in
+    let () = match res1 with
+      | Ok response -> print_endline response
+      | Error err -> print_endline err in
+    let res2 = Result.map
+        (fun t-> Sounds.repr (module Repr.Tengwar) t)
+        result in
+    let () = match res2 with
+      | Ok response -> print_endline response
+      | Error err -> print_endline err in
+    ()
 
 let rec repeat channel =
   (* Attempt to read one line. *)