(= a(readline)f(fn(o)(pr:keep[o a.0 _]a)f))f.>.is.<