1
2
3
4
5
6
7
8
9
10
open Lexeme
let pp ppf = function
| Float value -> Format.fprintf ppf "%f" value
| String value -> Format.fprintf ppf "\"%s\"" value
| Char value -> Format.fprintf ppf "'%c'" value
| Ident value -> Format.fprintf ppf "%s" value
| Keyword value -> Format.fprintf ppf "%s" value
let to_string = Format.asprintf "%a" pp