#
# $Id: str_util.icn,v 1.1 2004/02/12 17:07:57 rparlett Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package util

#
# strings.iol
# - string utilities
#

#
# Utility to get next integer
#
procedure get_int()
   suspend tab(upto(&digits)) & integer(tab(many(&digits)))
end