substr($genestring, $i, 1)