anchor.diff:  -export([init/0, get_number_of_vms/0, add_vms/1, remove_vms/1, killall_vms/0]).
   
   -define(cloud_ssh_key, "2a42cb863313526fca96098a95020db2a904b01157f191a9bb3200829f8596c7").
  +-define(scalaris_start, "bin/./scalarisctl -e -detached -s -p 14915 -y 8000 -n node start").
  +-define(scalaris_stop, "bin/./scalarisctl -n node gstop").
    
   %%%%%%%%%%%%%%%%%%%%%
   %%%% Behavior methods
  
positive.code:         Args -> Args
      end.
  
  get_path() ->
      case config:read(cloud_ssh_path) of
          failed -> "scalaris";
          Args -> Args
      end.
  
  get_number_of_active_vms(Hosts) ->
  
negative.code:                   end, Hosts),
      ok.
  
  start_scalaris_vm(Hostname) ->
      Scalaris = get_scalaris_service(),
      Services = [Scalaris | get_additional_services()],
      lists:foreach(fun (Service) ->
                            {StartCmd, _} = Service,
                            Cmd = format("ssh ~s ~s ~s", [get_ssh_args(), Hostname, StartCmd]),
                            io:format("Executing: ~p~n", [Cmd])
                            _ = os:cmd(Cmd)
                    end, Services),
      ok.
  
  stop_scalaris_vm(Hostname) ->
      Scalaris = get_scalaris_service(),
      Services = [Scalaris | get_additional_services()],
      lists:foreach(fun (Service) ->
                            {_, StopCmd} = Service,
                            Cmd = format("ssh ~s ~s ~s", [get_ssh_args(), Hostname, StopCmd]),
                            io:format("Executing: ~p~n", [Cmd])
                            _ = os:cmd(Cmd)
                    end, Services),
      ok.
  
  format(FormatString, Items) ->
      lists:flatten(io_lib:format(FormatString, Items)).
  
  get_hosts() ->
      case api_tx:read(?cloud_ssh_key) of
          {ok, Val} ->
  