The Biocaml Library : Biocaml_pwm.fast_scan

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