| Y.Name (s, false) -> out (P.sprintf "~%s;" s)
| Y.Apix i -> out (P.sprintf "+%i;" i)
| Y.Mark i -> out (P.sprintf "@%i;" i)
| Y.Name (s, false) -> out (P.sprintf "~%s;" s)
| Y.Apix i -> out (P.sprintf "+%i;" i)
| Y.Mark i -> out (P.sprintf "@%i;" i)