= [pq] [(q)(1 - s) - 1)) + (p)(1 - 1)] / [p2(1) + 2pq(1) + q2(1 - s)] [Fitness phenotypes W0 = W1 of AA & AB cancel; expand ]
= [pq] [-sq] / [p2 + 2pq + q2 - sq2] [Sort out numerator; extract p2 + 2pq + q2 in the denominator]
q = -spq2 / (1 - sq2)