(on b(tuples(drain:read)3)(prn:roundup:sqrt:apply *(map[-(/(sum + b)2)_](+'(0)b))))