do
a=peek(0)
if 0^a+a=10?
if!a=10?mid$(bin$(a+3),3);
loop