(%stdin)(r)file dup token pop{{1 index token pop dup =only 1 index string
cvs( )print length sub}loop}stopped