(= a(readline)b(a 0)k keep)(pr(k[> b _]a)(k b a)(k[< b _]a))