(defun foo ()
       (prefix-argument-loop
	(forward-character)
	(newline)
	(next-line)
	(set-mark)
	(forward-character)
	(delete-to-killbuffer)
	(previous-line)
	(previous-line)
	(end-of-line)
	(yank-from-killbuffer)
	(forward-character)
	(next-line)
	(next-line)
	(set-mark)
	(forward-character)
	(delete-to-killbuffer)
	(previous-line)
	(previous-line)
	(previous-line)
	(end-of-line)
	(yank-from-killbuffer)
	(next-line)
	(next-line)
	(next-line)
	(forward-character)
	(set-mark)
	(forward-character)
	(delete-to-killbuffer)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(end-of-line)
	(yank-from-killbuffer)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(forward-character)
	(set-mark)
	(forward-character)
	(delete-to-killbuffer)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(end-of-line)
	(yank-from-killbuffer)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(forward-character)
	(set-mark)
	(forward-character)
	(delete-to-killbuffer)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(end-of-line)
	(yank-from-killbuffer)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(forward-character)
	(set-mark)
	(forward-character)
	(delete-to-killbuffer)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(end-of-line)
	(yank-from-killbuffer)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(next-line)
	(forward-character)
	(set-mark)
	(forward-character)
	(delete-to-killbuffer)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(previous-line)
	(end-of-line)
	(yank-from-killbuffer)
	(forward-character)
	)
       )