Scanf.scanf "%s" (fun s ->
    Printf.printf "%d\n" (abs (String.length s - 10))
)