(on b(tuples(drain:read)3)(prn:int:sqrt:apply *(map[-(/(sum + b)2)_]`(0,@b))))