Common Lisp LOOP in the D programming language

loop.d

auto random = mixin(Loope!q{
    with max = 500
    for i from 0 to max
      collect $$ uniform(0, max) $$
});

mixin(Loop!q{
    for i in random
      counting $$ (i&1) == 0 $$ into evens
      counting $$ (i&1) == 1 $$ into odds
      summing i into total
      maximizing i into max
      minimizing i into min
    finally $$ writeln("Stats: ", [min, max, total, evens, odds]) $$
});

output

Stats: [2, 499, 126399, 229, 271]