%mktbsize(t=12, k=4 to 8, b=12 to 30)


%mktbibd(t=12, k=6, b=22, seed=104)


%mktbsize(t=5 to 20, k=3 to t - 1, b=t to 30)


data bibd;
  set bibd;
  label t="t * Number of * Treatments" 
        k="k * Block * Size" 
        b="b * Number * of Blocks" 
        r="r * Treatment * Frequency" 
        l="Lambda * Pairwise * Frequencies" 
        n="n * Total * Sample * Size";
run;


proc print data=bibd(obs=5) label noobs split='*';
run;


%mktbsize(t=20, k=6, options=ubd)


%mktbibd(t=20, k=6, b=10, seed=104)