(while((^'b(print(find($ equal? #"~b"$ number->string .'$)(iota 9 2))))(read)(read))(flush))