#  4.  Remove parens from subroutine for 1 char
#
#  Total:  85 chars

sub p{my($n,@e,$o)=@_;$_{$_=join$",sort@_,$/}++||print;p(++$o,--$n,@e)while$n-1}p pop