#! /usr/bin/perl
# license: gpl
for ($i = 0; $i <= $#ARGV; $i++){
	if ($ARGV[$i] == "--noheaders"){
		$nohead = 1;
	} else {
		$nohead = 0;
	}
}
if (!$nohead){
	print "m 1\n";
	print "g Buddies\n";
}
while ($line = <STDIN>){
	@parts = split(/;/, $line);
	$UIN = $parts[1];
	$alias = $parts[2];
	print "b $UIN:$alias\n";
}