let () =
  let a,b = Scanf.scanf "%d %d " (fun a b -> a,b) in

  let res = ref 0 in
  for i = a/100 to b/100 do
    let t = i*100 + i/100 + (i/10 - i/100) in
    if t>=a && t<=b then res := !res + 1
  done;

  Printf.printf "%d\n" !res
