Almost written genetc (without selection method :[ )