let rec strinC exinC j = if j=63 then exinC else
 strinC (exinC^(string_of_int (vect64 (dataInC)).(j))) (j+1)