diff --git a/test.ml b/test.ml
index 9e8c1c2..da94735 100644
--- a/test.ml
+++ b/test.ml
@@ -8,7 +8,7 @@ let debug_parser oc parsed =
     | Syntax.Void -> "Void"
     | Syntax.Int d -> "Int " ^ string_of_int d
     | Syntax.Bool d -> "Bool " ^ string_of_bool d
-    | Syntax.Str s -> "Str " ^ s
+    | Syntax.Str s -> "Str \"" ^ s ^ "\""
   and fmt_e = function
     | Syntax.Val d -> "Val (" ^ fmt_v d.value ^ ")"
     | Syntax.Var d -> "Var \"" ^ d.name ^ "\""
@@ -46,7 +46,7 @@ let debug_semantics oc ast =
     | Void -> "Void"
     | Int n -> "Int " ^ string_of_int n
     | Bool b -> "Bool " ^ string_of_bool b
-    | Str s -> "String " ^ s
+    | Str s -> "Str \"" ^ s ^ "\""
   and fmt_e = function
     | Val v -> "Val (" ^ fmt_v v ^ ")"
     | Var v -> "Var \"" ^ v ^ "\""