print chr length $_ for @a;