write first part of the Keccak sponge function