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