Q&A about the site for users of Wolfram Mathematica
with firstquery as ( select count bodylen from tags where count >1 ) ,secondquery as ( select top 70 percent convert(bigint,bodylen) bodylen from firstquery order by bodylen asc ) select avg(bodylen) from secondquery