(require rsc3-generic/rsc3-generic)

(map len '((1 2 3) #(4 5 6 7) "89"))	; => (3 4 2)

(map elt
     '((1 2 3) #(4 5 6 7) "89")
     '(2 1 0))				; => (3 5 #\8)

(let ((data (list (vector 4 5 6 7)
		  (string #\8 #\9))))
  (for-each elt! data '(1 0) '(-2 #\z))
  data)					; => (#(4 -2 6 7) "z9")

(map elt-right
     '((1 2 3) #(4 5 6 7) "89")
     '(2 1 0))				; => (1 6 #\9)