char-ascii-upper-case?
vonuvoli
predicate;
predicate
vs:characters
(vonuvoli characters)
vs:base
(vonuvoli base)