Save all images in GIMP

(map (lambda (i) (let ((n (string-append "/tmp/ic_" (number->string i) ".bmp"))) (file-bmp-save 1 i (car (gimp-image-active-drawable i)) n n))) (vector->list (car (cdr (gimp-image-list)))))