9 lines
192 B
Text
9 lines
192 B
Text
|
(de fasta (F)
|
||
|
|
(in F
|
||
|
|
(while (from ">")
|
||
|
|
(prin (line T) ": ")
|
||
|
|
(until (or (= ">" (peek)) (eof))
|
||
|
|
(prin (line T)) )
|
||
|
|
(prinl) ) ) )
|
||
|
|
(fasta "fasta.dat")
|