class Solver
  def initialize
    while data = gets
      @data = data.chomp.split(' ').map(&:to_i)
      @length = @data.shift
      @data.unshift(0)
      @graph = Array.new(@data.size).map{Array.new(@data.size, 0)}
      @dp = Array.new(1 << @data.size).map{Array.new(@data.size, -1)}
      create_graph
      answer = 9999

      answer = solver( 0, 0 )

      @graph.each do |graph|
        #p graph
      end
      puts (answer <= @length)? "OK" : "NA"
    end
  end

  def create_graph
    0.upto(@data.size-1) do |id|
      0.upto(@data.size-1) do |id2|
        if id == 0
          @graph[id][id2] = @data[id2]
        elsif id != id2
          if id2 == 0
            @graph[id][0] = @data[id]
          else
            @graph[id][id2] = calc_dist(id, id2)
          end
        end
      end
    end
  end

  def calc_dist(id1, id2)
    r1 = @data[id1]
    r2 = @data[id2]
    a = r1 + r2
    b = r1 - r2
    dist = Math.sqrt(a**2 - b**2)
  end

  def solver( s, v )
    return @dp[s][v] if @dp[s][v] >= 0

    return @dp[s][v] = 0 if s == (1 << @data.size) - 1 && v == 0

    res = 9999
    0.upto(@data.size-1) do |id|
      if !((s >> id) & 1 == 1)
        res = [ res, solver( s | (1 << id), id) + @graph[v][id]].min
      end
    end
    @dp[s][v] = res
  end
end

s = Solver.new