: count depth ;
: = 0 .r cr ;
stdin slurp-fid evaluate