BEGINNING-OF-PROGRAM

    define-new-instruction turnright as
    begin
      turnleft;
      turnleft;
      turnleft
    end;
  
    define-new-instruction right-pivot as
    begin
      turnright;
      move;
      turnright
    end;
  
    define-new-instruction left-pivot as
    begin
      turnleft;
      move;
      turnleft
    end;
  
    define-new-instruction put-and-move as
    begin
      putbeeper;
      move
    end;

    define-new-instruction put-and-move2 as
    begin
      put-and-move;
      move
    end;
  
BEGINNING-OF-EXECUTION
  
      move;
      turnleft;
  
      put-and-move;
  
      right-pivot;
      put-and-move2;
      put-and-move;
  
      left-pivot;
      put-and-move2;
      put-and-move2;
      put-and-move;
  
      right-pivot;
      put-and-move2;
      put-and-move2;
      put-and-move2;
      putbeeper;
  
      left-pivot;
      move;
      move;
      move;
      turnleft;
  
      turnoff  
  
    END-OF-EXECUTION
  
END-OF-PROGRAM