Scanf.scanf "%c%c%c" (fun a b c -> let a = int_of_char a - 48 in let b = int_of_char b - 48 in let c = int_of_char c - 48 in Printf.printf "%d\n" @@ max a (max b c) - min a (min b c) )