sub f(x,y,s$)if(!x)print s$
if(y<x)f(x-1,y,s$+"0")
if(y)f(x-1,y-1,s$+"1")
end sub
input""a,b
f(a,b)