BEGINNING-OF-PROGRAM

    define-new-instruction turnright as
    begin
      turnleft;
      turnleft;
      turnleft
    end;

    define-new-instruction forward-left as
    begin
      move;
      move;
      turnleft
    end;

    define-new-instruction forward-right as
    begin
      move;
      move;
      turnright
    end;

  BEGINNING-OF-EXECUTION

    turnright;

    forward-left;
    forward-left;
    forward-left;

    move;
    pickbeeper;
    turnleft;

    turnleft;
    move;
    turnright;

    forward-right;
    forward-right;
    forward-right;
    
    turnoff

  END-OF-EXECUTION

END-OF-PROGRAM