    put(io,"3dface ");
    put(io,xc,1,8,3);
    put(io,",");
    put(io,yc,1,8,3);
    put(io,",");
    put(io,zc,1,8,3);
    put(io," ");
    glob := face(i,1);
    put(io,xo(glob),1,8,3);
    put(io,",");
    put(io,yo(glob),1,8,3);
    put(io,",");
    put(io,zo(glob),1,8,3);
    put(io," ");
    glob := face(i,2);
    put(io,xo(glob),1,8,3);
    put(io,",");
    put(io,yo(glob),1,8,3);
    put(io,",");
    put(io,zo(glob),1,8,3);
    put(io," ");
    put(io," ");
    new_line(io);
    put(io,"ucs object last");
    new_line(io);
    put(io,"erase last ");
    new_line(io);
