Update factorizar.hs