#! /usr/bin/perl -w

my @name=();

while (<STDIN>) {

    chomp($_);
    if ($_=~m/>/)
    {
      $line = substr ($_, 1);
      print ">$ARGV[0].$ARGV[1].exonerate $line \n"
    }
    else
    {
    print "$_ \n";
    }
}