# Here's the plan
#
# $sdiff() -- convert bytes to kilobytes
# $sdiff2() -- convert bytes to megabytes
#

alias sdiff {
	^set floating_point on
	^local kb $trunc($1 ${[$0] / 1024})
	@ function_return = kb ## [K]
	^set floating_point off
}

alias sdiff2 {
	^set floating_point on
	^local mb $trunc($1 ${[$0] / (1024 * 1024)})
	@ function_return = mb ## [mb]
	^set floating_point off
}

#hop'97
