do n=peek(0):if n^.5<4?:n=0
?mid$(bin$(n+3),3);loop