Functional approach to deal with "google search" example from Rob Pike talk

channels_streams.erl

search(Ch, Kind, Query) ->
    timer:sleep(random:uniform(100) + 10),
    enqueue(Ch, {Kind, Query}).

fake(Kind) ->
    Ch = make(),
    fun(Query) ->
        spawn(?MODULE, search, [Ch, Kind, Query]), Ch
    end.

fastest(Query, Replicas) ->
    Chs = lists:map(fun(R) -> R(Query) end, Replicas),    
    read(zip(Chs)).