revise par(mfrow)