--same code resubmit

-- yukicoder My Practice
-- author: Leonardone @ NEETSDKASU

import Data.List

main = putStrLn . unlines . solve . map read . words =<< getLine

solve [a, b] = map show . nub . dropWhile (== 0) . sort $ do
    x <- [0..a] 
    y <- [0..b]
    return $ x + 5 * y