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