[.runstdin/]{{17{(-)print}repeat()= 0 1 14{-8 1 8{abs 1 index 17 mul
add( )[0(f)(\0\314)(\0f\314)(\6\322)(\6\322f)(\6l\322)(\6l3\322)(\6l3\231\322)(\6J\216\322f)(\6"J\216\252\322)]4
index get{(\0\20\1\1\20){add dup 3 index eq{exch pop(*)exch}if}forall
pop}forall print pop}for()= pop}for}forall}stopped