: POLYGON                         <BUILDS 0 DO MINUS , MINUS ,    LOOP 00. , ,                    DOES> >R BEGIN R> DUP 4 + >R                2@ 2DUP CR                   WHILE PLOT                      REPEAT                       R> DROP DROP DROP DROP             DROP DROP ;          -150 150 150 0                  -75 75 -75 -75                  0 -150 150 150                  0 -150 -150 0                   8 POLYGON (HAUS) CR             : HAUS_VOM_NIKOLAUS 1 70 15     (HAUS) ;