скопируйте следующее в *scratch* и сделайте M-x eval-buffer (progn (dotimes (i 1000) (insert (if (= 0 (% i 40)) "\n" "x ")))(zone)(zone)(zone))