-module(bank_client).
-export([ask/1, deposit/2, withdraw/2]).

% Tuvalu is the name of the machine where I was testing this program.
head_office() -> 'bank@Tuvalu'.

ask(Who) -> call_bank({ask, Who}).

deposit(Who, Amount) -> call_bank({deposit, Who, Amount}).

withdraw(Who, Amount) -> call_bank({withdraw, Who, Amount}).

call_bank(Msg) ->
  Headoffice = head_office(),
  monitor_node(Headoffice, true),
  {bank_server, Headoffice} ! {self(), Msg},
  receive
    {bank_server, Reply} ->
      monitor_node(Headoffice, false),
      Reply;
    {nodedown, Headoffice} -> no
end.