sub p{my($k,$n)=@_;$m{$n,$k}||=$k<$n?p($k+1,$n)+p($k,$n-$k):$k==$n}print"p($_)=".p(1,$_).$/for 1..100