```erlang start() -> register( mnesiaDBA_pub_clear, spawn( fun()-> loop() end ) ). stop() -> rpc( {stop, "stop"} ). rpc(Request) ->     mnesiaDBA_pub_clear ! {self(), Request},     receive         {mnesiaDBA_pub_clear, Res} ->             Res;         Other ->             io:format("server is different:~p~n", [Other])     end. loop() ->     receive         {ClientPid, {table, Table}} ->             Res = filter(Table),             ClientPid ! {mnesiaDBA_pub_clear, Res},             loop();         {ClientPid, {stop, Stop}} ->             ClientPid ! {mnesiaDBA_pub_clear, "pid stopping reason:" ++ hd(io_lib:format("~p~n", [Stop]))};         {ClientPid, Other} ->             ClientPid ! {mnesiaDBA_pub_clear, "arg is error:" ++ hd(io_lib:format("~p~n", [Other]))},             loop()     end. 1.upmap(F, L) -> Parent = self(), Ref = make_ref(), [receive {Ref, Result} -> Result end || _ <- [spawn(fun() -> Parent ! {Ref, F(X)} end) || X <- L]]. 2.loop() -> receive a -> Fun,loop(); stop -> stop; Other -> Fun,loop(); after 3000 -> 0 end. ```