(bind-func main
(lambda (n)
(println ">ONE Homo sapiens alu")
(repeat_And_Wrap_String homo_Sapiens_Alu (* 2 n))
(println ">TWO IUB ambiguity codes")
(generate_And_Wrap_Pseudorandom_DNA_Sequence iub_Nucleotides_Information 15 (* 3 n))
(println ">THREE Homo sapiens frequency")
(generate_And_Wrap_Pseudorandom_DNA_Sequence homo_Sapien_Nucleotides_Information 4 (* 5 n))
void))