!w{W[0]=H[0]=w=h=1}/0/{for(;h--;s=RS s)for(x=w;x--;$1=s=f?" "s:"#"s)for(f=n=i;n;)f-=A[n,int(h%H[n]/H[n-1]),int(x%W[n]/W[--n])]}a{H[++i]=h*=a;W[i]=w*=NF;NR=0}1>a=+$0{while($++j)A[i,NR,j-1]=$j~"#"}j=FS=s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).