let rec div3 n m = 
    if n = m then []
    else if n mod 3 = 0 then string_of_int n :: div3 (n+1) m
    else div3 (n+1) m
let () =
    let n, m = Scanf.scanf "%d %d\n" (fun a b -> a, b) in 
    let lst = div3 n m in
    List.iter print_endline lst