#!/usr/bin/perl -w

use strict;

while (<>) {
	my $s = $_;
	
	$s =~ s/\[ *\\cite\{([^{}[\]]*)\}(,| und) \\cite\{([^{}[\]]*)\}(,| und) \\cite\{([^{}[\]]*)\} *\]/\\qqq{$1}{$3}{$5}/g;
	$s =~ s/\[ *\\cite\{([^{}[\]]*)\}(,| und) \\cite\{([^{}[\]]*)\} *\]/\\qq{$1}{$3}/g;
	$s =~ s/\[ *\\cite\{([^{}[\]]*)\} *\]/\\q{$1}/g;
	$s =~ s/\[ *(\\cite[^[\]]*?) *\]/\\qx{$1}/g;
	
	print $s;
}