: a
196 1 do
i 0 0. begin
d+ 2dup 0. begin
10 1 m*/ 2over 10 fm/mod 0 * d+ 2swap 1 10 m*/ 2tuck d0= until
d+ 2over 2over d= until
0 d.r cr loop
; a