http://rosalind.info/problems/rna/

Sample input

GATGGAACTTGACTACGTAAATT

Sample output

GAUGGAACUUGACUACGUAAAUU

use v6;



sub MAIN(Str $input = "GATGGAACTTGACTACGTAAATT") {
    .trans('T' => 'U').say given $input;
}

# vim: expandtab shiftwidth=4 ft=perl6