#!perl
undef$/;$_=<DATA>;for$i(1..4*length){print(qw/A C G U/[vec$_,$i-1,2])}
__END__