A coalsecent simulator with selection