: a >number 0 -rot 1. d+ ; 0. stdin slurp-fid a a a * * d+ swap rot 0
[do] dup 0 .r cr 2dup * 100 / + [loop]