: l dup base ! 1- 1 over 0 do 2dup swap 0 do dup 3 .r over + loop drop cr 1+ loop ; key 10 * 474 - l