20{-14710 451{(%stdin)(r)file read pop add}repeat 50 idiv =}repeat