PROGRAM

  ROUTINE trace
  BEGIN
    FORWARD 50;
    ROTATE 90;
  END

BEGIN
  FORWARD 100;
  ROTATE 90;
  FORWARD 100;
  ROTATE 270;
  PEN DOWN;
  CALL trace;
  CALL trace;
  CALL trace;
  CALL trace;
END.