let int_of_hex2 s = 
        let (x,y) = (int_of_charhex s.[0], int_of_charhex s.[1]) in
        x * 16 + y