Select Code to Download

let explode str =
...
let r2d str =
    List.fold_left (fun acc x -> let x' = d2a x in acc + x' - acc mod 
+x' * 2) 0 (explode (String.uppercase str));;