readDigits :: IO [Int]
readDigits = map read <$> words <$> getLine

main :: IO ()
main = do
    ns <- (\(a:b:[]) -> [a..b]) <$> readDigits
    let ns' = [n | n<-ns, n`mod`3==0||'3' `elem` (show n)]
    mapM_ (putStrLn.show) $ ns'