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.




1024      constant  max-Line
char >    constant  marker
 
: read-lines        begin  pad max-line >r over r> swap
                           read-line throw
                    while  pad dup c@ marker =
                           if cr 1+ swap type ."  : "
                           else swap  type
                           then
                    repeat drop  ;
 
: Test              s" ./FASTA.txt" r/o open-file throw
                    read-lines
                    close-file throw
                    cr ;
Test
 