script fu for gimp, scheme, convert tif to indexed bmp

; script fu for gimp, scheme, convert tif to indexed bmp

(let* ((filelist (cadr (file-glob "/home/blah/foo/*.tif" 1))))
  (while (not (null? filelist))
    (let* (
        (filename (car filelist))
        (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
        (drawable (car (gimp-image-get-active-layer image)))
        )
      (gimp-image-convert-indexed image 0 3 2 0 1 "")
      (gimp-file-save 1 image drawable (string-append (substring filename 0 (- (string-length filename) 4)) ".bmp") (string-append filename ".bmp"))
    )
    (set! filelist (cdr filelist))
  )
)