sub P{my($n,$_,$k)=@_;for($"=", ";$n;$k++,$n/=2){s/.$/$&, /,$_.=P($k)if$n%2}/./?"{$_}":0}push@F,P$%++for 1..(<>+12)&19;print"{@F}"