import qualified Data.ByteString.Char8 as B
import           Data.List             (unfoldr)
import           Data.Vector.Unboxed   ((//))
import qualified Data.Vector.Unboxed   as V

main :: IO ()
main = do
  n <- readLn
  as <- readIntsLn
  putStrLn . unwords . map show $ solve n as

solve :: Int -> [Int] -> [Int]
solve n as = V.toList $ V.replicate n 0 // [(a - 1, i) | (a, i) <- zip as [1 ..]]

readIntsLn :: IO [Int]
readIntsLn = unfoldr (B.readInt . B.dropWhile (== ' ')) <$> B.getLine
