In bioinformatics, long character strings are often encoded in a format called FASTA.

A FASTA file can contain several strings, each identified by a name marked by a > (greater than) character at the beginning of the line.



Task

Write a program that reads a FASTA file such as:

>Rosetta_Example_1
THERECANBENOSPACE
>Rosetta_Example_2
THERECANBESEVERAL
LINESBUTTHEYALLMUST
BECONCATENATED


Output:
Rosetta_Example_1: THERECANBENOSPACE
Rosetta_Example_2: THERECANBESEVERALLINESBUTTHEYALLMUSTBECONCATENATED

Note that a high-quality implementation will not hold the entire file in memory at once; real FASTA files can be multiple gigabytes in size.




proc Echo;      \Echo line of characters from file to screen
int Ch;
def LF=$0A, EOF=$1A;
[loop   [Ch:= ChIn(3);
        case Ch of
          EOF:  exit;
          LF:   quit
        other ChOut(0, Ch);
        ];
];
 
int Ch;
[FSet(FOpen("fasta.txt", 0), ^i);
loop    [Ch:= ChIn(3);
        if Ch = ^> then
                [CrLf(0);
                Echo;
                Text(0, ": ");
                ]
        else    ChOut(0, Ch);
        Echo;
        ];
]