op_gt
op_gt(struct val *a, struct val *b)
static Linetype op_gt(long *p, Linetype at, long a, Linetype bt, long b) {