p $<.to_a.drop(1).map{|x|
	Complex(*x.split.map(&:to_i))
}.product([*0...5000]).select{|x|
	(x[0]/Complex.polar(1,2*Math::PI*x[1]/5000)).arg.abs<Math::PI/2
}.group_by(&:last).map{|x|
	x[1].map(&:first).inject(:+).abs
}.max
