(while:pr:if(<(= n(-(readb)29))0)"
"(cut(coerce n'string 2)1))