undef $/;
$\=$:;
$\=~s/-//;
$_ =<DATA>;
chomp;
s/\s+//gx;
map
{
  $a=$2;
  {
    $a.=/^[<`~]/x?/\w/x &&($`eq'<'?'*':$`eq'~'?"\124": $`eq '`'?'I':0)x hex$&:/^[^TI*]/x?$"x hex $&:/./? substr ($_,0,1):0;$_=$';
    $_ ne $,? redo:last ;
  }
  print $a;
}
(
   split(/\|/)) 

__DATA__ 
     B<C|B*A*B`3|B*A*AI2I|B*A*A`3|B*A<6T9T<7|B*FT2`5
       2T7*|B*9~62I3I2~63*|B*8T7I3I7T4*|<C7~62
         I3I2~66*|1*F6T2I3I2TD*|2*F4T2`5
          2TE*|5<2     8**4T9TE*|8*4*4
           *1~BD*       |A<28*F5*|F7
                         *E*|F9*9*|FB
                          *6*|FC*4*|
                             FD*3*|
                                FE**