z_read.table('grades',header=T,as.is=T)
#dimnames(z) <- list(NULL,c("name","hw","ex1","ex2"));
#xx <- as.data.frame(z);
#attach(xx);
attach(z);
#o <- order(Average);
zz <- z[o];
#print(z[o]);