#!/usr/bin/perl
$t = "T";
$v = (
( $t eq "B" ) ? "bus" :
( $t eq "A" ) ? "airplane" :
( $t eq "T" ) ? "train" :
( $t eq "C" ) ? "car" :
( $t eq "H" ) ? "horse" :
"feet" );
IyEvdXNyL2Jpbi9wZXJsCgokdCA9ICJUIjsKCiR2ID0gKAogKCAkdCBlcSAiQiIgKSA/ICJidXMiIDoKICggJHQgZXEgIkEiICkgPyAiYWlycGxhbmUiIDoKICggJHQgZXEgIlQiICkgPyAidHJhaW4iIDoKICggJHQgZXEgIkMiICkgPyAiY2FyIiA6CiAoICR0IGVxICJIIiApID8gImhvcnNlIiA6CiAiZmVldCIgKTsKIAogcHJpbnQgJHY7