-module(o). -export([m/0]). m()->{_,S}=regexp:split(io:get_line(''),"\s*"),m(S,-1). m(["="|Y],R)->io:format("~b~n",[R]),m(Y,R-1); m([X|Y],R)->m(Y,R+1); m([],R)->e.