Sierpinsky kleinst.ps

/S 280 def 9 9 735 590 400 9 65/A[6 8 10 2 4 6 4 6 8]def/t{6 index 0 eq{moveto lineto lineto closepath fill}{6 index 1 sub 0 1 8{/I exch def 2{A I get index 7 index add 2 div}repeat I 3 mod 2 eq{t}if}for 7{pop}repeat}ifelse}def t showpage