let nabeatsu a b = for i = a to b do if String.contains (string_of_int i) '3' || i mod 3 = 0 then begin print_int i; print_newline () end else () done let () = Scanf.sscanf (read_line ()) "%d %d" nabeatsu