(%stdin)(r)file 12 string readline pop 2{(:)search pop cvi 2 index}repeat cvi
100 add exch 4 index{dup = 1 index mul 100 idiv}repeat