@* Code block.

@c
if (*(loc+1)=='*') {@+loc++;@+compress(minus_gt_ast);@+}

@* Type.

@s tetra int

@c
typedef struct {@+tetra h,l;@+} octa; /* an octabyte */

@* Index.