Welcome to the CHICKEN Scheme pasting service

(define (validate-jwt->junk jwt)
  (call/cc
   (lambda (return)
     (define jwt-components (string-split jwt "."))
     (unless (= (length jwt-components) 3)
       (return #f))

     (define jose-header (read-json (car jwt-components)))
     (define jws-payload (read-json (cadr jwt-components)))
     (define jws-signature (caddr jwt-components))
     (unless (and jose-header jws-payload)
       (return #f))