'123 a:from-string TRUE [ swap c:digit? and ] a:reduce