Update MPermute.hs