#!/usr/bin/perl

$|=1;
while(1){
        read(STDIN, $buf, 1, 0);
	if(($line == 1) && ($ct%6 == 0)){
		print "*";
	}
        if(($line <= 15)){
		print $buf if ($ct%6 == 0);
        }
        if($line == 15){
		$ct++;
        }
        $line = 0 if(ord($buf) == 42);
        $line++;
}