c:sconcat;f(x):=(if x=0then s:"0"else (s:"{",k:0,while x>0 do(if mod(x,2)#0then(if slength(s)>1then s:c(s,", "),s:c(s,f(k))),k:k+1,x:fix(x/2)),s:c(s,"}")));sprint(c("{",simplode(makelist((f(i)),i,0,[0,1,0,15][?read()]),", "),"}"));