(: y 0)(: w -1)(: x(*(#(l))10))(@(: x(#/ x 10))(: y(+ y(*(^ 2(: w(+ w 1)))(% x 10)))))y