program atcoder
    implicit none
    integer(8) :: i,j,n,m,ans=0,k,mincost=-1,use2max=-1
    integer(8),allocatable,dimension(:) :: a,canuse,cost
    character(len=10000),allocatable,dimension(:) :: dp,x
    read*,n,m
    allocate(a(m))
    allocate(canuse(9))
    allocate(cost(9))
    allocate(dp(0:n))
    dp = "-"
    x = (/"1","2","3","4","5","6","7","8","9"/);
    cost = (/2,5,5,4,5,6,3,7,6/)
    read(*,*)(a(j),j=1,m)
    dp(0) = ""
    do i=0,N
        if(trim(dp(i))=="-")then
            cycle
        endif
        do j=1,m
            if(i+cost(a(j)) > N )then
                cycle
            endif
           dp(i+cost(a(j))) = maxst( dp(i+cost(a(j))) , trim(dp(i))//x(a(j)) )
        enddo
    enddo
    write(*,'(a)')trim(dp(n))
    stop 
contains
function maxst(x,y)
    character maxst*10000,x*10000,y*10000
    if(x=="-")then
        maxst = y
    else if(y=="-")then
        maxst = x
    else if(len(trim(x))>len(trim(y)))then
        maxst = x
    else if(len(trim(x))<len(trim(y)))then
        maxst = y
    else if(x>=y)then
        maxst = x
    else
        maxst = y
    endif
end function maxst
end program atcoder