prettyplot<-function(nrow,ncol){
	par(mfrow=c(nrow,ncol),omi=c(.5,1,.5,1),lwd=2)
}