#!/usr/local/bin/perl

while (<STDIN>) {
    split(//);
    foreach $i (@_) {
	if ($i eq "*") {
	    if (!$ital) {
		$i = "<I>";
		$ital = 1;
	    } else {
		$i = "</I>";
		$ital = 0;
	    }
	}
    }
    print @_;
}
