: a 1+ 1 do ?dup if i . 1- else i 0 .r cr 1+ dup then loop ; 0. pad dup 9 stdin read-file + evaluate a