'<SILENCE>
.IF (A>3) .GOTO M1
ERROR::
!? GOER "DO GAM:POLY N" DAER "N" AER ETT TAL MELLAN 4 OCH 35
.MIC EXIT
M1::.IF(A>35).BACKTO ERROR
.R MLAB
*N
*N_'A;
*D_0:359:360/N; M_(SIND ON D)&''(COSD ON D);
*FUNCTION GCD(X,Y)=IF X<Y THEN GCD(X,X) ELSE IF MOD(X,Y)=0 THEN Y ELSE GCD(Y,MOD(X,Y));FOR S_2:INT(N/2) DO (C_GCD(S,N);FOR J_0:(C-1) DO (M_M&(M ROW (1+(MOD ON ((J+S*(0:N/C))&''N))))));
*WINDOW W, 2.1 BY 2.1, AT -1.05,-1.05;
*DISPLAY=T4010
'<REVIVE>
*DRAW M IN W;
.