a-N:-get0(X),(X<0;(X\=89;writeln(N)),C is N+1,a-C).
m:-prompt1(''),a-0.