while($i=<STDIN>){chomp($i);@j=split(/ /, $i);@h=split(/,/, $j[0]);foreach(reverse(@h)){substr($j[1], $_, 0)=" "}print($j[1]."\n");}