: f 502 2 do dup 1 .r cr i 0 i - and + loop ; 1 f