(define
	(simple-denokia pattern raggio)
	(let*
		((filelist (cadr (file-glob pattern 1))))
		(while filelist
			(let*
				(
					(filename (car filelist))
					(image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
                  			(drawable (car (gimp-image-get-active-layer image)))
				)
				(plug-in-autostretch-hsv RUN-NONINTERACTIVE image drawable)
				(if > 0 raggio
					(plug-in-sel-gauss RUN-NONINTERACTIVE image drawable raggio 50)
				)
				(gimp-file-save RUN-NONINTERACTIVE image drawable filename filename)
				(gimp-image-delete image))
			(set! filelist (cdr filelist))
		)
	)
)