
? <include generator>;

<anagram #s>
	::sys <char #slist #s>
	<print '----------------'>
	::generator <permutationAll #r (#x #slist) 
		::sys <concat #str #x>
		<print #str>
	>
	;


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