(defun main int)
	(let names:char** (alloc (sizeof char**)))
	(for i:int 1 (< i 256) 1)
		(set names[i] (readstr))
		(printstr "name_count:")
		(printint i)
		(printchar '\n')
	(endfor)
(endfun)