Double Cola problem in Erlang

double_cola.erl

%% Double Cola problem in Erlang
%% https://codeforces.com/problemset/problem/82/A

-module(main).
-export([start/1]).

start(N) ->
  io:fwrite(
    cola(N-1, [ {"Sheldon", 1}, 
                {"Leonard", 1}, 
                {"Penny",   1}, 
                {"Rajesh",  1}, 
                {"Howard",  1}]) ++ "\n").

cola(N, [{Name, Count} | TheRest]) when N-Count >= 0 ->
  cola(N-Count, TheRest ++ [{Name, Count * 2}]);

cola(N, [{Name, Count} | _]) when N-Count < 0 ->
  Name.