大神求解啊

-export([start_arallel_server/0,loop/1,par_connect/1]).
start_arallel_server() ->
{ok,Listen} = gen_tcp:listen(2345,[binary,{packet, 4},{reuseaddr, true},{active, true}]),
spawn(fun() -> par_connect(Listen) end).
par_connect(Listen) ->
{ok,Socket} = gen_tcp:accept(Listen),
spawn(fun() -> par_connect(Listen) end),
loop(Socket).
loop(Socket) ->
receive
{tcp, Socket, Bin} ->
io:format("Server received binary = ~p~n",[Bin]),
Str = binary_to_term(Bin),
io:format("Server (unpacked) ~p~n",[Str]),
Reply = lib_misc:string2value(Str),
case Reply of->
{niuroumian} ->
io:format("niuroumian = ~p~n", [15]);
{xiaomian} ->
io:format("xiaomian = ~p~n", [7]);
{_} ->
io:format("ni d shuru wuxiao ~p~n", [])
gen_tcp:send(Socket, term_to_binary(Reply)),
loop(Socket);
end.
为什么编译后显示 case of 那段有问题