#!/usr/perl -w

@j=split //,"* -+|AVERGCLTHSUDNMI\n";@k=split /\s*/,

 "UB    RAD   U      BQAAB  DAAUB   PAA   B   F    A
A   U  B   P  A        A    B      F   A  A   U    B
O      A   A  B        H    A      A      U   B    N
A      ABJAA  U        B    LABBL  A      BUBIA    C
B      P   A  C        U    B      E      A   D    B
V   A  D   U  A        E    B      ^   A  E   U
 CWD   C   G  DCHUB    W    EBGEU   BEF   G   H    I

FJHBASTMBAOMPQHRMBGEUB_EUBIFGHIFJHBAKFLMHKNBAOMPQHRM
U";for($i=0;$i<110;$i++){#map{chr(ord$j[ord-65]},@k;
if(($j=ord(shift(@k))-65)<3){$k=(ord(shift(@k))-64)}
$k=1 if($j>2);$j=$j[$j];while($k!=0){print $j;$k--}}