print map {/(.+)\./ ; $1 . "\n"} sort(RetrieveIllustrationList($cl_userinput));