source("statgh.r") 
dbfdata <- lit.dbf("repqual.dbf")$dbf
row.names(dbfdata) <- dbfdata[,1]
dbfdata <- dbfdata[,-1]
sink("repqual.dar")
print(dbfdata)
sink()