#!/usr/local/bin/sbcl --script
(mapcar	#'stringp '("a"	(b "c")	NIL 25 "25" T))