: z 37 2 do i base ! 257. .r cr loop ; z