: a dup 1+ 1 do i 1+ 1 do 2dup + j - i type cr loop loop ;
stdin slurp-fid a