-module m. -export[m/0]. m()->f(-1). f(N)->case io:fread('',"~s")of{_,["="]}->io:write(N),io:nl(),f(N-1);{ok,_}->f(N+1);_->0end.