for i=-256to 256a=-i
for j=1to 64b=mod(a,2)
if!b?" ";:
if!!b?"#";:a=3*a+1
a=a/2next
?"|"next