Diffusion constant for the repton model of gel electrophoresis