: a 1+ 1 do ?dup if i . 1- else i 0 .r cr 1+ dup then loop ;
0. stdin slurp-fid evaluate a