open System

let A, B = Console.ReadLine().Split(' ')
           |> fun s -> (s.[0] |> int , s.[1] |> int)

let ( |Multiple3|Number3|Number| ) n =
  match ( n % 3 ) , ( string n ).Contains("3") with
  | 0 , _    -> Multiple3
  | _ , true -> Number3
  | _ , false-> Number
  
let fizzBuzz n =
  match n with
  | Multiple3 -> printfn "%i" n
  | Number3   -> printfn "%i" n
  | Number    -> ()

[A..B]
|> List.iter (fizzBuzz)