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