#!/usr/bin/perl

#prohaze sloupce ze STDIN oddelene & podle permutace zadane parametry
while(<STDIN>){
	chop;
	s/\\&/@@@@@/g;
	
	@x=split('&');
	$_="";
	for($i=0;$i<=$#ARGV;$i++){
		$_=$_ . "$x[$ARGV[$i]]&";
	}
	chop;

	s/@@@@@/\\&/g;
	print "$_\n";
}
