let text = function
| T.Plain s -> P.sprintf "\"%s\"" s
| T.Link (true, uri, s) -> P.sprintf "@(\"%s\" \"%s\")" uri s
| T.Link (false, uri, s) -> P.sprintf "@@(\"%s\" \"%s\")" uri s
let key = function
let text = function
| T.Plain s -> P.sprintf "\"%s\"" s
| T.Link (true, uri, s) -> P.sprintf "@(\"%s\" \"%s\")" uri s
| T.Link (false, uri, s) -> P.sprintf "@@(\"%s\" \"%s\")" uri s
let key = function