sub c { @r='';@r=map{$c=$_;map$c.$_,@r}@_ for 1..shift;@r }