let rec contain_3 n s = if n < 10 then let s = s + n in if n = 3 || (s <> 0 && s mod 3 = 0) || (s = 0 && n = 6 || n = 9) then true else false else let n1 = n mod 10 in if n1 = 3 then true else contain_3 (n / 10) (s + n1) let nabeatsu2 a b = for i = a to b do if contain_3 i 0 then begin print_int i; print_newline () end else () done let () = Scanf.sscanf (read_line ()) "%d %d" nabeatsu2