END{for(;n<100;)print++n" : "lshift(3*log(k=and(n,-n))+1,n/2/k)}