use strict;
use locale;
while (my $ligne = <STDIN>){
    chomp($ligne);
    if($ligne =~ /^[bmp]/){
	print "im", $ligne, "\n";
    }
    elsif($ligne =~ /^([lr])/){
	print "i", $1, $ligne, "\n";
    }
    else{
	print "in", $ligne, "\n";
    }
}