anchor.diff:  	    {error, Reason}
       end.
   
  +%% @doc Decreases the available credit for a customer.
   -spec debit(Key::term(), Amount::non_neg_integer()) -> ok | {error, string()}.
   debit(Key, Amount) ->
       case rpc:call(?SERVER, floppy,  append, [Key,{{decrement,Amount}, actor1}]) of
  
positive.code:             Val
      end. 
  
  -spec buyvouchers(Key::term()) -> ok | {error, string()}.				  buyvoucher(Key, Voucher) ->
      rpc:call(?SERVER,floppy,  append, [Key, {{add, Voucher},actor1}]).
  
  -spec usevouchers(Key::term()) -> ok | {error, string()}.
  usevoucher(Key, Voucher) ->
      rpc:call(?SERVER, floppy, append, [Key, {{remove, Voucher},actor1}]).
  
  -spec readvouchers(Key::term()) -> number() | {error, string()}.
  readvouchers(Key) ->
      case rpc:call(?SERVER, floppy, read, [Key, riak_dt_orset]) of
  
negative.code: -export([credit/2, debit/2, init/2, getbalance/1, buyvoucher/2, usevoucher/2, readvouchers/1]).
  
  -define(SERVER, 'floppy@127.0.0.1').
  %% @doc Initializes the application by setting a cookie.
  init(Nodename, Cookie) ->
      net_kernel:start([Nodename, longnames]),
      erlang:set_cookie(node(),Cookie).
  
  %% @doc Increases the available credit for a customer.
  -spec credit(Key::term(), Amount::non_neg_integer()) -> ok | {error, string()}.  
  credit(Key, Amount) ->
      case rpc:call(?SERVER, floppy, append, [Key,{{increment,Amount}, actor1}]) of
  