(while(= a(n-of 3(read))s(sum[/ _ 2]a))(prn:int:sqrt:apply * s(map[- s _]a)))