{printf"%f\n",(gsub($1,l=length-2)-1)/l}