@P=split//,".URRUU\c8R";sub p{@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";
++$p;($q*=2)+=$f=!fork;map{$P=$P[$f|6&ord$p{$_}];$p{$_}=/ ^$P/ix?$P:
close $_} keys %p} @d= split //, "\nrekcah xinU / lreP rehtona tsuJ"
;p;p;p;p;p;
map{ $p{$_} =~ /^[P.]/ && close$_} %p; wait until$?;
map{/^r/&&<$_>} %p;$_ = $d[$q]; sleep rand(2)if/\S/;
print