default ant = ant;
default dir = dir;

nbr y;

if(dir != 0) {
  dir = 0;
}
else {
  rot if(no:dir == '>') {
    if(ant == 1) {
      ant = 0;
      dir = '>,3';
    } 
    else if(ant == 0) {
      ant = 1;
      dir = '>,1';
    }
  }
}