apportion(Shares, Ways) when is_integer(Shares) ->
    apportion(lists:duplicate(Ways, 0), Shares);
apportion(Acc, 0) ->
    Acc;
apportion(Acc, Remaining) ->
    N = Remaining rem length(Acc),
    [H|T] = lists:nthtail(N, Acc),
    apportion(lists:sublist(Acc, N) ++ [H+1|T], Remaining - 1).