while str = gets
    break if str.chomp == ""
    w, *rs = str.split.map(&:to_i)
    l, r, *q = rs.sort
    t = [l]
    until q.empty?
        t << q.pop
        t << q.shift unless q.empty?
    end
    t << r
    m = t.each_cons(2).map{|x, y| ((x+y)**2 - (x-y)**2) ** 0.5}.reduce(:+) + t.first + t.last
    puts (m <= w) ? "OK" : "NA"
end
