Erlang Multiget Example

riak.erl

-module(riak).
-author("Ivan Blinkov <ivan@blinkov.ru>").

-export([multiget/3]).

multiget(Pid, Bucket, Keys) ->
  case riakc_pb_socket:mapred(Pid, 
    [{Bucket, Key} || Key <- Keys],
    [
      {reduce, 
        {modfun, riak_kv_mapreduce, reduce_set_union}, none, false},
      {map,
        {modfun, riak_kv_mapreduce, map_identity}, none, true}
    ]) of
      {ok,[{_,List}|_]} ->
        {ok, 
          [new(Bucket, Key, Value) || 
            {r_object, _Bucket, Key,
            [{r_content, _Meta, Value}],
            _VClock, _UpdateMeta, _UpdateVal} <- List]};
	{error,notfound} ->
          [];
	Other ->
	  Other
   end.

Can you write "money denomination" code in erlang Language ?