scheme@(guile-user)> ((@@ (ice-9 gap-buffer) s:) buffer)
$8 = "aaaaa\nbbbbb\nccccc\nddddd\neeeee\nffff\nggggg\nhhhhh\niiiii\njjjjaaaaa\nbbbbb\nccccc\nddddd\neeeee\nffff\nggggg\nhhhhh\niiiii\njjjjj\nkkkkk\nlllll\n"
scheme@(guile-user)> (define buffer (make-gap-buffer ""))
scheme@(guile-user)> (define data "aaaaa\nbbbbb\nccccc\nddddd\neeeee\nfffff\nggggg\nhhhhh\niiiii\njjjjj\nkkkkk\nlllll\n")
scheme@(guile-user)> data
$9 = "aaaaa\nbbbbb\nccccc\nddddd\neeeee\nfffff\nggggg\nhhhhh\niiiii\njjjjj\nkkkkk\nlllll\n"
scheme@(guile-user)> (display data)
aaaaa
bbbbb
ccccc
ddddd
eeeee
fffff
ggggg
hhhhh
iiiii
jjjjj
kkkkk
lllll
scheme@(guile-user)> ((@@ (ice-9 gap-buffer) s:) buffer)
$10 = "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
scheme@(guile-user)> (gb-insert-string! buffer data)
$11 = 72
scheme@(guile-user)> ((@@ (ice-9 gap-buffer) s:) buffer)
$12 = "aaaaa\nbbbbb\nccccc\nddddd\neeeee\nfffff\nggggg\nhhhhh\niiiii\njjjjj\nkkkkk\nlllll\n\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
scheme@(guile-user)> (gb->string buffer)
$13 = "aaaaa\nbbbbb\nccccc\nddddd\neeeee\nfffff\nggggg\nhhhhh\niiiii\njjjjj\nkkkkk\nlllll\n"
scheme@(guile-user)> ((@@ (ice-9 gap-buffer) s:) buffer)
$14 = "aaaaa\nbbbbb\nccccc\nddddd\neeeee\nfffff\nggggg\nhhhhh\niiiii\njjjjj\nkkkkk\nlllll\n\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"
scheme@(guile-user)> (gb-goto-char buffer (gb-point-min buffer))
$15 = 1
scheme@(guile-user)> ((@@ (ice-9 gap-buffer) s:) buffer)
$16 = "aaaaa\nbbbbb\nccccc\nddddd\neeeee\nfffff\nggggg\nhhhhh\niiiii\njjaaaaa\nbbbbb\nccccc\nddddd\neeeee\nfffff\nggggg\nhhhhh\niiiii\njjjjj\nkkkkk\nlllll\n"
scheme@(guile-user)> (gb->string buffer)
$17 = "aaaaa\nbbbbb\nccccc\nddddd\neeeee\nfffff\nggggg\nhhhhh\niiiii\njjjjj\nkkkkk\nlllll\n"
scheme@(guile-user)>