#!/usr/bin/perl

$|=1;
for($i=0;$i<70;$i++){
	print "*";
	foreach (1..13) {
		print pack("c", 128);
	}
	print pack("c", 255);
	print pack("c", 255);
	select(undef, undef, undef, .2);
}

while(<>){
	split;
	print "*";
	foreach $x (@_) {
		print pack("c", $x);
	}
	select(undef, undef, undef, .2);
}