$stdin.each do |input|
  a = input.split.map &:to_i
  s = a.shift
  a.sort!
  b = []
  f = true
  until a.empty?
    if f
      b << a.pop
    else
      b << a.shift
    end
    f = !f
  end
  i = 0
  c = 0
  while i < b.size
    if i == 0 || i == b.size - 1
      c += b[i]
    end
    if i > 0
      c += 2 * Math.sqrt(b[i] * b[i - 1])
    end
  end
  if c <= s
    puts "OK"
  else
    puts "NA"
  end
end