: a 1 16 do i base ! 16 0 .r cr 1 -loop ; a