let rec strin exin i j = if j=63 then exin else
 strin (exin^(string_of_int (vect64 (dataIn i)).(j))) i (j+1)