#!/usr/bin/jperl

#	"R[0-4][0-4]"	->	"[a-e][a-e]"
#	"L" -> ""


@alpha	=	(	'a',	'b',	'c',	'd',	'e'	);

while(	<>	)	{
	s/R(.)(.)/$alpha[$1]$alpha[$2]/ig;
	s/L//ig;
	print;
}