| byte |
byte := 123456789012345.
^(#('' k M G T P E Z) inject: byte into: [:result :unit |
	result < 1024 ifTrue: [^result asString, unit].
	result / 1024 roundTo: 0.1]) asString, 'Y'

"=> '112.3T' "