Directions of the star road by leonid

a=[*$<]<<x=y=0
loop{a[r=y][c=x]=i=1;i+=2until a[y=r+i%9/3+~i/19][x=c+i%3-1]==?*;putc'\|/- -/|\\'[i%9]}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top