open System open System.Text let isThree n:int = let mutable num = n let mutable ret = 0 while num > 0 do if num % 10 = 3 then num <- 0 ret <- 1 num <- num / 10 ret [] let main args = let IN = Console.ReadLine().Split(' ') let A, B = Int32.Parse(IN.[0]), Int32.Parse(IN.[1]) for x = A to B do if x % 3 = 0 || isThree(x) = 1 then printfn "%d" x done 0