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.




prog:   ignore(spaces)
loop:   parse(line)\loop parse(( = {*} ));
line:   ( name | * = {} | seqns );
name:   <>> ignore(none) smark string(nonl) scopy *
        ( [f>0?] = {} | = {*} ) [f=0]
        = { 1 2 <: > };
seqns:  smark string(nonl) scopy * [f=0];
 
none:   <<>>;
nonl:   !<<
>>;
spaces:	<< 	>>;
 
f:      1;