work
use write.table correctly
more work