%%HP: T(3)A(D)F(.);
\<< PICT PURGE # 131d
# 131d PDIM { # 0d
# 33d } PVIEW 0 130
  FOR i # 130d i
R\->B DUP 3 ROLLD -
DUP # 0d 2 \->LIST 3
PICK # 130d 2 \->LIST
TLINE # 130d SWAP 2
\->LIST SWAP # 0d
SWAP 2 \->LIST TLINE
  NEXT { } PVIEW
\>>


