#!perl -ln073
print+(/./g)[/\d/g]