(CharacterLength=
  length
. vap$((=.!arg).!arg):? [?length&!length
);