(while 1(prn(reduce #(+%1(.indexOf(str(.toString(bigint%2)2)0)"0"))0(re-seq #"\d+"(read-line)))))