#!/usr/bin/perl/


while (<STDIN>) {
	if (/^F\s+(.+)$/){
		unshift @data,$1;
	}
	elsif (/^B\s+(.+)$/){
		push @data,$1;
	}
}


while (@data) { 
    print shift @data,"\n"; 
}