<>;
for(<>){
	$c=$/;
	++$_;
	while($_>1){
		$c=($_&1?R:L).$c;
		$_>>=1;
	}
	print$c;
}