(while:pr:if(is(*:readb)10)"
"0)