(while:prn:int:sqrt:apply *(map[-(/(sum + $)2)_]`(0,@(= $(n-of 3(read))))))