#!/usr/bin/perl
@ARGV == 0
	or die "syntax: $0 < field_types > numeric\n";

while (defined ($line = <STDIN>)) {
	@F = split /\t/, $line, -1;
	print scalar($F[1] =~ /char/ ? 'a' : '1');
}
print "\n";