$ :=Map clone;for(i,1,100,s:=0;for(j,1,100,s=s+a:=if(j>1and j<i,$at(i-j .."-".. j)+ $at(i-1 .."-".. j-1),if(i<j,0,1));$atPut(i .."-".. j,a))writeln("p(",i,")=",s))