cmp :: MPI -> MPI -> IO Ordering
cmp u v = gcry_mpi_cmp u v >>= return . int2ord
cmp :: MPI -> MPI -> IO Ordering
cmp u v = gcry_mpi_cmp u v >>= return . int2ord
cmp u v = gcry_mpi_cmp u v >>= return . int2ord