(#(try(recur(cons(read)%))(finally(let[p(fn[f](some prn(f odd?(sort%))))](p remove)(prn)(p filter))))())