let fast_scan mat seq tol =  
  let n = String.length seq in
  let seq = Array.init n (fun i -> int_of_char seq.[i]) in
  stub_fast_scan mat seq tol