Directions of the star road by yshl

19{32 string(%stdin)(r)file 1 index readline def{}forall}repeat count -1
roll{pop 0{0[576 31 2 31 543 2 62 2]{{count -1 roll exch}repeat 1 index 32
gt{(|--|\\//\\)exch 1 getinterval print e}if 1 add}forall quit}stopped pop}loop

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

download

return to the top page