FWD
| fwd box %prec UP { move(FWD, $1, $2); }
fwd : FWD text { $$ = atoi((char *) $1); } ;
%right UP DOWN BACK FWD
"fwd", FWD,
if (dir == FWD || dir == BACK) /* fwd, back */
FWD(aft, aft, 1);
FWD(aft, aft, OPND(s));
FWD(aft, aft, 1);
FWD(aft, bef, 1);
FWD(aft, bef, 1);
FWD(aft, bef, 1);
FWD(aft, bef, 1);
FWD(aft, bef, 1);
FWD(aft, bef, 1);
FWD(aft, bef, 1);
FWD(aft, aft, 1);
FWD(aft, aft, 1);
FWD(aft, aft, 1);
FWD(aft, aft, 1);
FWD(aft, aft, OPND(s));
FWD(aft, aft, 1);
FWD(aft, aft, 1);
FWD(aft, aft, 1);
FWD(aft, aft, OPND(s));
FWD(aft, aft, look + 1);