Cadence Skill - Totally Buggy?

cv=geGetEditCellView()
cell=cv~>cellName
wlist=list()
foreach(x cv~>shapes if(x~>lpp==list("M4" "drawing") then if(x~>width!=nil then wlist=cons(x~>width wlist) nwidth=mapw(x~>width)  
        printf("%s %f\n" "path width= " nwidth)          
        else
 bbx=x~>bBox
 ll=lowerLeft(bbx)
 ur=upperRight(bbx)
 lly=yCoord(ll)
 ury=yCoord(ur)
 llx=xCoord(ll)
 urx=xCoord(ur)
 lx=urx-llx
 ly=ury-lly
 width=min(lx,ly)
 wlist=cons(width wlist)
 nwidth=mapw(width)
 printf("%s %f\n" "Rectangle width= " nwidth)
) ;if x~>width!=nil
) ;if M4
) ; foreach shape
printf( "%s %s\n" "cell: " cell)

procedure(mapw(w)
mapwlist='(0.052,0.066,0.072,0.09,0.1,0.142,0.23)
prog(()
if(w>=0.7 then
 return(w)
 else
 match=0
 foreach(mpl mapwlist
  if(w==mpl then match++)
  )
  if(match>0 then return(w)
     else
     dlist=list()
     foreach(mpl mapwlist
      diff=abs(w-mpl)
      dlist=cons(diff dlist)
      )
       mindiff=()
       dls=0.0
       for(i 0 length(dlist)-1  dls=nth(i dlist)
      if(i!=0 then dlspre=nth(i-1 dlist)
         if(dls>dlspre then  mindiff=dlspre else mindiff=dls) else mindiff=dls)
         )    
     
      foreach(mpl mapwlist
       if(abs(w-mpl)==mindiff then
           return(mpl)
          )
            
      ) ;foreach mpl
      ) ;if match>0
      ) ;if w>0.7
      ) ;prog

)