sub t{!@_&&print@r,"\n";for my $i(0..$#_){push@r,$_[$i];t(@_[0..$i-1],@_[$i+1..$#_]);pop@r}}