let args = stdin.ReadLine().Split(' ')
    let a = int args.[0]
    let b = int args.[1]
    let f n =
        Seq.unfold (fun a -> Some (a,a/10)) n
        |> Seq.takeWhile((<=)3)
        |> Seq.exists(fun i -> i % 10 = 3)
        || n % 3 = 0
    [a..b]
    |> Seq.filter f
    |> Seq.sort
    |> Seq.iter (printfn "%d")