(princ(/(do((i 1(1+ i)))((not(read-line()/))i))2))