(load "/home/rohan/sw/sw-61/scheme/verify.scm")

(verify-message '("/s"))		; => #t
(verify-message '("/s" 2.4))		; => #t
(verify-message '("/s" 1 "t"))		; => #t
(verify-message '(1 2.4 "t"))		; => #f
(verify-message '("/s" 'symbol))	; => #f

(verify-bundle '(1 ("/s" 5)))		; => #t
(verify-bundle '(1 (1 ("/s" 5))))	; => #t
(verify-bundle '("/t" 5))		; => #f
(verify-bundle '(1 (#f ("/s"))))	; => #f
(verify-bundle '(9 (8 ("/s" 5))))	; => #f