upload_and_eval(ErlangServer,ErlangModule:Eval_Function -> X) :-
　　cp(ErlangModule.erl,ErlangServer::ErlangModule.erl),
　　ErlangServer :: (c:c(ErlangModule) -> {ok,ErlangModule}),
　　ErlangServer :: (ErlangModule:Eval_Function -> X).
の方が分かり易いか。