(import strse (chicken string) srfi-13)

(define dont-touch-me #t)
(define set-me #f)

(unless (string=?
	 "that was SO very, very nice"
	 (strse "this is freaking awesome"
		"is" "at"
		"at" "was so" 2
		'word string-upcase 3
		"very "(then (set! dont-touch-me #f))
		"frea" "ve"
		"king" "ry"
		"very "(then (set! set-me #t))
		(=> adjective "very") (conc adjective ", " adjective)
		'word "nice" -1))
  (error "Strings don't match!"))

(unless (and set-me dont-touch-me)
  (error "Setting, then, side-effects system is borked"))