Scanf.scanf "%d %d" (fun a b -> let rec check c = if c = 0 then false else if c mod 10 = 3 then true else check (c / 10) in for i = a to b do if i mod 3 = 0 || check i then Printf.printf "%d\n" i done )