beginning-of-program define-new-instruction lay-carpet-side as while front-is-clear do begin move; putbeeper; end; beginning-of-execution iterate 4 times begin lay-carpet-side; turnleft; end; turnoff; end-of-execution end-of-program