| ")" { out "CP"; TP.CP }
| "[" { out "OB"; TP.OB }
| "]" { out "CB"; TP.CB }
+ | "{" { out "OC"; TP.OC }
+ | "}" { out "CC"; TP.CC }
| "<" { out "OA"; TP.OA }
| ">" { out "CA"; TP.CA }
| "." { out "FS"; TP.FS }
| "=" { out "EQ"; TP.EQ }
| "*" { out "STAR"; TP.STAR }
| "#" { out "HASH"; TP.HASH }
- | "+" { out "PLUS"; TP.PLUS }
| "~" { out "TE"; TP.TE }
- | "->" { out "WTO"; TP.WTO }
- | "=>" { out "STO"; TP.STO }
| "^" { out "CT"; TP.CT }
| eof { out "EOF"; TP.EOF }