/f{dup{/b exch def b[2 index{dup b eq{pop}if}forall]f def}forall count 13 eq{11
-2 3{index =only( )print}for 1 index =}if}def[0 1 5{}for]f