anchor.diff:  from_json(Req, State) ->
       case get_vars_from_body(Req) of
           {ok, {ModuleName, ModuleSource}, Req2} ->
  -            ScenarioPath = "scenarios/" ++ erlang:binary_to_list(ModuleName),
  -            file:write_file(
  -              ScenarioPath ++ ".erl",
  -              ModuleSource,
  -              [write]
  -             ),
  -            Result = compile_and_load_scenario(
  -                       ModuleName,
  -                       ScenarioPath),
  -            ResultBody = case Result of
  -                             ok -> Result;
  -                             {error, Errors, _Warnings} ->
  -                                 R = io_lib:format("~p", [Errors]),
  -                                 erlang:list_to_bitstring(lists:flatten(R))
  -                         end,
  +            Nodes = amoc_nodes(),
  +            ResultBody =  erlang:list_to_bitstring(
  +                            process_multicall_results(Nodes, install_scenario_on_nodes(Nodes, ModuleName, ModuleSource))),
               Reply = jiffy:encode({[{compile, ResultBody}]}),
               Req3 = cowboy_req:set_resp_body(Reply, Req2),
               {true, Req3, State};
  
positive.code:          content_types_accepted/2,
           to_json/2,
           from_json/2]).
  
  -type state() :: [].
  
  
negative.code:         {error, eexist} -> ok;
          {error, Reason} -> Reason
      end.
  
  -spec amoc_nodes() -> [node()].
  amoc_nodes() ->
      [node() | [ Node || Node <- erlang:nodes(), not is_remsh_node(Node) ]].
  
  -spec is_remsh_node(node()) -> boolean().
  is_remsh_node(Node) ->
      case atom_to_list(Node) of
          "remsh" ++ _ -> true;
          _            -> false
      end.
  