*FishersExactTest> rpCutoff [ [5,0],
                              [1,4] ]
R {numer = [2,3,4,5], denom = [7,8,9,10]}
*FishersExactTest> fromRational . toRatio $ it 
2.3809523809523808e-2