#alias bu {
	#unvar message;
	#var mlenght 0;
	#var inc 0;
	#var {origmsg} {%0};
	#parse {$origmsg} {
		#math {mlenght} {$mlenght + 1};
	};
	#math {mid} {$mlenght/2};
	#parse {$origmsg} {
		#if {$inc==$mid} {#var {message} {${message}|c|}; } { #nop; };


		#if {$inc==0} {#var {message} {|bg|&0}} {#var {message} {${message}&0}};
		#math {inc} {$inc+1};
	};
	#cr;
	buddy ${message};
	#cr;
	#unvar mlenght;
	#unvar mid;
	#unvar inc;
	#unvar origmsg;
	#unvar message;
}