p;tot-len-i-j;     v
##############
>#;~:a-#v_v@,a.g00;>10p
 v1p1g01< >$20p >10g2/30p20g1g>:30g1g-#v_v
 >0g1v;n20g1+20p^       v_;#-g 01:+1g03< :
^p01+<                v;>30p  ^; +1-a'<   
                                     vwZ'<
^p010p00+g00          <       ++fc-A'<<