RosettaCodeData/Task/FASTA-format/Aime/fasta-format.aime

file f;
text n, s;

f.affix(argv(1));

while (f.line(s) ^ -1) {
    if (s[0] == '>') {
        o_(n, s, ": ");
        n = "\n";
    } else {
        o_(s);
    }
}

o_(n);