$a=1;
$h=<>;
for(<>){
	if($_>$h){
		++$a;
	}
}
print$_=$a,/1$/?st:/2$/?nd:/3$/?rd:th;