
? <include generator>;

<anagram #s>
	::sys <char #slist #s>
	<print '----------------'>
	<for (#i 10)
		::generator <permutation #x #slist >
		::sys <concat #str #x>
		<print #str>
	>
	;


? ::sys <getline #l> <anagram #l>;
