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