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: 	    {error, Reason}
      end.
  
  %% @doc Returns the current balance for a customer.
  -spec getbalance(Key::term()) -> error | number().				  
  getbalance(Key) ->
      case rpc:call(?SERVER, floppy, read, [Key, riak_dt_pncounter]) of	
  