writerec[]:=
   (WriteString[outs, iter, "      ", e[wtlog,7,6],e[dum,7,6],e[dum,7,6], "\n"];
    For[i=1, i<=LSET, i++,
        WriteString[outs, e[g[[i]],7,6]];
        WriteString[outs,If [Mod[i,5]==0 || i==LSET, "\n", "     "]];
       ];
   )