$n=<>;
@a=(0,glob<>);
@b=(0,glob<>);
$m+=abs($a[$_]-=$b[$_])for 1..$n;
print"$m\n";
print"$_ L\n"x$a[$_]for 1..$n;
print"$_ R\n"x-$a[$_]for reverse 1..$n;