program main
  implicit none
  integer*8::N,M,i,max_val,min_val
  character::c(15)=""
  integer::plus,minus,num(10),digit,series(14)=0
  data plus/0/,minus/0/,num/10*0/
  read *,N
  read *,c(1:N)
  do i=1,N
     if     (c(i).eq.'+') then
        plus  = plus + 1
     else if(c(i).eq.'-') then
        minus = minus + 1
     else
        digit = ICHAR(c(i))-ICHAR('0')
        num(digit) = num(digit) + 1
     end if
  end do
  M = N-plus-minus

  call sort()
  call get_max(max_val)
  call get_min(min_val)
  print '(i0," ",i0)',max_val,min_val
  return
contains
  subroutine get_max(max_val)
    integer*8::total=0,max_val
    do i=1,minus
       total = total - series(i)
    end do
    do i=minus+1,minus+plus
       total = total + series(i)
    end do
    do i=minus+plus+1,M
       total = total + series(i)*10**(i-minus-plus-1)
    end do
    max_val = total
  end subroutine get_max

  subroutine get_min(min_val)
    integer*8::total=0,min_val
    if(minus.gt.0) then
       do i=1,plus+1
          total = total + series(i)
       end do
       do i=plus+2,plus+minus
          total = total - series(i)
       end do
       do i=plus+1+minus, M
          total = total - series(i)*10**(i-minus-plus-1)
       end do
    else
       do i=M,M-plus+1,-1
          total = total + series(i)
       end do
       do i=M-plus,1,-1
          total = total + series(i)*10**((M-plus)-i)
       end do
    end if
    min_val = total
  end subroutine get_min
  subroutine sort()
    integer::itr
    itr = 0
    do i=1, M
       do
          if(num(itr).eq.0) then
             itr = itr + 1
          else
             num(itr) = num(itr) - 1
             exit
          end if
       end do
       series(i) = itr
    end do
  end subroutine sort
end program main