var i,j:byte;begin for j:=0to 14do for i:=1to min(j*15div 2-1and j,95)+5do
if j=i div 3-i div 5then write(i)else write(^j:1div i,"":1+ord(i>9))end.