Scanf.scanf "%d" (fun t -> for i = 1 to t do Scanf.scanf " %d" (fun n -> let ns = string_of_int n in let m = if ns.[0] = '9' then n * 2 else let ss = int_of_string @@ String.init (String.length ns) (fun i -> '9') in ss - n in Printf.printf "%d\n" m ) done )