fid  = OpenRead["X1.txt"];
n = Read[fid]; X1  =  ReadList[fid];
CloseRead[fid];

α = (2^30);
p = Fold[(α #1  + #2) &, 0, X1]; 
    q = (α^Length)[X1];
N[p/q, 10002]