import Data.List

main :: IO ()
main = do
    s <- getLine
    xs <- map read . words <$> getLine
    let ys = sort xs
        zs = span (\(m, c) -> m < head ys) $ zip [0..10] s
        ws = span (\(m, c) -> m < last ys) $ snd zs
        us = fst zs ++ (g $ f ws)
    putStrLn $ map snd us

f :: ([a], [a]) -> ([a], [a])
f (xs, [])         = (xs, [])
f ([], ys)         = ([], ys)
f ((x:xs), (y:ys)) = ((y:xs), (x:ys))

g :: ([a], [a]) -> [a]
g (xs, []) = xs
g ([], ys) = ys
g (xs, ys) = xs ++ ys