beginning-of-program define-new-instruction turnright as begin turnleft; turnleft; turnleft; end; define-new-instruction go-to-next-row as begin turnleft; move; turnleft; end; define-new-instruction position-for-next as begin turnright; move; turnright; end; define-new-instruction harvest-1-row as begin pickbeeper; move; pickbeeper; move; pickbeeper; move; pickbeeper; move; pickbeeper; end; define-new-instruction harvest-2-rows as begin harvest-1-row; go-to-next-row; harvest-1-row; end; beginning-of-execution move; harvest-2-rows; position-for-next; harvest-2-rows; position-for-next; harvest-2-rows; move; turnoff; end-of-execution end-of-program