f=$(info $(words 1 $1) : $(subst $e ,,$(foreach x,$(subst 0, 0,$(call h,0x$(call g,$(subst $e ,,1$1)))),$(words $(subst x,x ,$(subst 0,,$x))))))$(call f$(word 99,$1),1 $1) g=$(if $(subst 11,,$1),$(subst x1,,x$j),xx$(call g,$j)) h=$(if $(filter %1,$1),$(call h,$(subst y,,$(call i,y$(subst x,xx,$(1:1=))))),$1) i=$(if $(findstring $t,$1),$(call i,$(subst yx,y0x,$(subst 0$t,x0,$1))),$1) j=$(subst 11,1,$1) t=xxxxxxxxxx $f
Note that non-ascii characters in the above source code will be escaped (such as \x9f).