#!/local/bin/perl5 -l
open I,shift;
while (<I>) {
    @p = split;
    $s = $p[0] if !$s;
    ($p{$p[0]})?($p{$p[0]}->{$p[1]}=[@p[2..4]]):($p{$p[0]}={$p[1]=>[@p[2..4]]})}
@p = @ARGV?(split '',shift):('_');

while(1){
    ($a,$p[$p],$b)=@{$p{$s}->{$p[$p]}};
    last if!$p{$a};
    ($b eq'R')?(++$p>$#p?(push @p,'_'):''):(!$p?splice @p,0,0,'_':$p--);
    $s=$a}
print @p
