procedure RollDice;
var
  data: IEnumerable<IEnumerable<Integer>>;
  results: IEnumerable<IGrouping<string, IEnumerable<Integer>>>;
begin
  data := TEnumerable.Repeated<IEnumerable<Integer>>(TEnumerable.Range(1, 5), 2400000);

  results := TEnumerable.GroupBy<IEnumerable<Integer>, string>(data,
    function(const x: IEnumerable<Integer>): string
    begin
      Result := StringJoin('', TEnumerable.Select<Integer,string>(TShuffledEnumerable<Integer>.Create(x), IntToStr));
    end);

  Writeln(StringJoin(#13#10, TEnumerable.Select<IGrouping<string, IEnumerable<Integer>>,string>(results,
    function(const group: IGrouping<string,IEnumerable<Integer>>): string
    begin
      Result := group.Key + ': ' + IntToStr(group.Count);
    end)));
end;