package main

import (
	"bufio"
	"fmt"
	"io"
	"os"
	"strconv"
)

var iost *Iost

type Iost struct {
	Scanner *bufio.Scanner
	Writer  *bufio.Writer
}

func NewIost(fp io.Reader, wfp io.Writer) *Iost {
	const BufSize = 2000005
	scanner := bufio.NewScanner(fp)
	scanner.Split(bufio.ScanWords)
	scanner.Buffer(make([]byte, BufSize), BufSize)
	return &Iost{Scanner: scanner, Writer: bufio.NewWriter(wfp)}
}
func (i *Iost) Text() string {
	if !i.Scanner.Scan() {
		panic("scan failed")
	}
	return i.Scanner.Text()
}
func (i *Iost) Atoi(s string) int                 { x, _ := strconv.Atoi(s); return x }
func (i *Iost) GetNextInt() int                   { return i.Atoi(i.Text()) }
func (i *Iost) Atoi64(s string) int64             { x, _ := strconv.ParseInt(s, 10, 64); return x }
func (i *Iost) GetNextInt64() int64               { return i.Atoi64(i.Text()) }
func (i *Iost) Atof64(s string) float64           { x, _ := strconv.ParseFloat(s, 64); return x }
func (i *Iost) GetNextFloat64() float64           { return i.Atof64(i.Text()) }
func (i *Iost) Print(x ...interface{})            { fmt.Fprint(i.Writer, x...) }
func (i *Iost) Printf(s string, x ...interface{}) { fmt.Fprintf(i.Writer, s, x...) }
func (i *Iost) Println(x ...interface{})          { fmt.Fprintln(i.Writer, x...) }
func isLocal() bool                               { return os.Getenv("I") == "IronMan" }
func main() {
	fp := os.Stdin
	wfp := os.Stdout
	if isLocal() {
		fp, _ = os.Open(os.Getenv("END_GAME"))
	}
	iost = NewIost(fp, wfp)
	defer func() {
		if isLocal() {
			iost.Println(recover())
		}
		iost.Writer.Flush()
	}()
	solve()
	for i := 0; isLocal() && i < 100; i++ {
		iost.Println("-----------------------------------")
		solve()
	}
}
func solve() {
	n := iost.GetNextInt()
	k := iost.Text()
	cc := make([]int, 10)
	for i := 1; i < 10; i++ {
		cc[i] = iost.GetNextInt()
	}
	m := len(k)
	if n > m {
		for i := 1; i < 10; i++ {
			for j := 0; j < cc[i]; j++ {
				iost.Print(i)
			}
		}
		iost.Println("")
		return
	}
	if n < m {
		iost.Println(-1)
		return
	}
	ans := make([]int, n)
	var (
		dfs func(now int, more bool) bool
	)
	dfs = func(now int, more bool) bool {
		if now == n {
			return more
		}
		if more {
			for i := 1; i < 10; i++ {
				if cc[i] == 0 {
					continue
				}
				ans[now] = i
				cc[i]--
				break
			}
			if dfs(now+1, more) {
				return true
			}
			return false
		}
		for i := int(k[now] - '0'); i < 10; i++ {
			if cc[i] == 0 {
				continue
			}
			ans[now] = i
			cc[i]--
			if i == int(k[now]-'0') {
				if dfs(now+1, false) {
					return true
				} else {
					cc[i]++
				}
				continue
			}
			if dfs(now+1, true) {
				return true
			} else {
				cc[i]++
			}
		}
		return false
	}
	if dfs(0, false) {
		for i := 0; i < n; i++ {
			iost.Print(ans[i])
		}
		iost.Println("")
		return
	}
	iost.Println(-1)
}