forth mendel, not a disaster! not working
forth mendel use floating point. ok except when p-1 = 0