: count depth ;
: = 0 .r cr ;
pad dup 9999 stdin read-file + evaluate