in src/third_party_src/fips202.c [410:423]
static void keccak_squeezeblocks(uint8_t *out,
size_t nblocks,
uint64_t s[25],
unsigned int r)
{
unsigned int i;
while(nblocks > 0) {
KeccakF1600_StatePermute(s);
for(i=0;i<r/8;i++)
store64(out + 8*i, s[i]);
out += r;
--nblocks;
}
}