print+(@a=sort{$b<=>$a}map{$/=$",$%+=/R/?<>:-<>}<>=~/./g)[!<>]-pop@a