(use slib)(require'printf)(use srfi-13)(while(read-line)=>\(printf"%f "(/(-(string-count\(~\ 0))1)(-(string-size\)2))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page