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