write_file2<-function(labT, D, file="dist.ldt"){
   write(c(labT, "~"), file=file, 
         ncolumns=20)
   write(t(D), file=file, append =T, ncolumns=20)
   write("~", file=file, append =T)
}