Sierpinski fractal を 81 byte で

anarchy golf で Sierpinski fractal を表示するというお題が出ているので、思い立ったが吉日とばかりに PostScript で Sierpinski fractal を描いてみる。（入力を読んでサイズを変えるとかはしてません）

100 0
/s{
    gsave
    translate
    dup 1 gt{
        0 0 moveto
        dup 0 lineto
        dup 2 div 1 index lineto
        closepath stroke
        2 div
        dup 2 copy 2 div exch s
        dup 0 0 s
        dup 0 s
    }{
        pop
    }ifelse
    grestore
}def
0 s

これをバイナリトークンエンコードして不要な空白を詰めると 81 byte になります。