$base = lc substr($sequence, $position, 1);