sub gene_length {
    my @gls = sort map { length } keys %genome;
    die "Invalid genotype" unless $gls[0] == $gls[$#gls];
    return $gls[0];
}