Text[Row[With[{data=ExampleData[{"Text","DeclarationOfIndependence"},"Words"]},Table[Style[data[[i]],10 N[Log[Count[Take[data,i],data[[i]]]]]],{i,Length[data]}]]," "]]