Partial 1

gistfile1.erl

gather_calls(Term) when is_list(Term) ->
    gather_calls(hd(Term), tl(Term), []);
gather_calls(_) ->
    [].

%% gather_calls(Term, Queue, CallMapAcc)
gather_calls([], [], CallMap) ->
    lists:reverse(lists:flatten(CallMap));
gather_calls([], Queue, CallMap) ->
    gather_calls(hd(Queue), tl(Queue), CallMap);
gather_calls(RemoteCall = [call, _Row, [remote | _RemoteRest] | CallRest],
             Queue,
             CallMap) ->
    gather_calls(CallRest, Queue, [process_call(RemoteCall) | CallMap]);
gather_calls(Call = [call | _CallRest], Queue, CallMap) ->
    gather_calls(hd(Queue), tl(Queue), [process_call(Call) | CallMap]);
gather_calls(L, [], CallMap) when is_list(L) ->
    gather_calls([], lists:map(fun gather_calls/1, L), CallMap);
gather_calls(_T, [], CallMap) ->
    gather_calls([], [], CallMap);
gather_calls(_T, Queue, CallMap) ->
    gather_calls(hd(Queue), tl(Queue), CallMap).

process_call(Call) ->
    % do fancy stuff.
    Call.