# include <std.h>
# define OUT 2
# define STAT 11

TEXT	*low  =  0,
	*high = ~0;

main (ac, av)
	COUNT ac;
	TEXT **av;
	{
	init (ac, av);
	temp()

	}


put (a)
	TEXT *a;
	{
	for (; *a; a++)
		cpm (OUT, *a);
	}

putnum (a)
	UCOUNT a;
	{
	TEXT buf [16];

	buf [itob (buf, a, 16)] = 0;
	put (buf);
	}

hex (a)
	TEXT *a;
	{
	UCOUNT b;

	btoi (a, lenstr (a), &b, 16);
	return b;
	}