let lit_to_str lit = match lit with
| Ast.Int(i) -> "LIT_INT("^(string_of_int i)^")"
| Ast.Float(f) -> "LIT_FLOAT("^(string_of_float f)^")"
| Ast.String(s) -> "LIT_STRING(\"" ^ s ^ "\")" (* escapes were escaped during lexing *)
| Ast.Bool(b) ->if b then "LIT_BOOL(1)" else "LIT_BOOL(0)"