(use exif srfi-4)

(print (tag-alist-from-file "sony-cybershot.jpg" '(model make date-time)))
(and-let* ((thumb (thumbnail->u8vector "sony-cybershot.jpg")))
  (with-output-to-file "thumb.jpg" (lambda ()
                                     (display (blob->string (u8vector->blob thumb))))))