Modified number.hs to apply seqP