#  Calculate the number of bits required to represent a numeric value as
#  an integer.

#  Copyright (c) 1989-1995 by Hamilton Laboratories.  All rights reserved.

proc bits( n )
   return ceil(log2 (n + 1))
end

bits $argv