(use slib)(require'printf)(use srfi-13)(while(read-line)=>\(printf"%f
"(/(-(string-count\(~\ 0))1)(-(string-size\)2))))