let (n,a,b) = Scanf.scanf "%d %d %d\n" (fun x y z -> (x,y,z))

let pr x = print_endline @@ string_of_int x

let (--) m n =
  let rec iter i res =
    if i >= m then iter (i - 1) (i::res)
    else res in
  let rec iter' i res =
    if i <= m then iter' (i + 1) (i::res)
    else res in
  if m <= n then iter n []
  else iter' n []

let digit_list_of_num n =
  let rec iter rem res =
    let top = rem mod 10 in
    if rem < 10 then top::res
    else iter (rem / 10) (top::res) in
  iter n []

let sum_digits n =  List.fold_left (+) 0 @@ digit_list_of_num n
    
let () = List.fold_left
           (fun sum x ->
             let s = sum_digits x in
             if s >= a && s <= b then sum + x
             else sum) 0 (1--n)
         |> pr
