init_globals   xtlang

(bind-func init_globals
  (lambda ()
    (let ((info1:nucleotide_info* (halloc 15))
          (info2:nucleotide_info* (halloc 4)))
      (set! homo_Sapiens_Alu "GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTGGGAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGAGACCAGCCTGGCCAACATGGTGAAACCCCGTCTCTACTAAAAATACAAAAATTAGCCGGGCGTGGTGGCGCGCGCCTGTAATCCCAGCTACTCGGGAGGCTGAGGCAGGAGAATCGCTTGAACCCGGGAGGCGGAGGTTGCAGTGAGCCGAGATCGCGCCACTGCACTCCAGCCTGGGCGACAGAGCGAGACTCCGTCTCAAAAA")
      (set! iub_Nucleotides_Information info1)
      (set! homo_Sapien_Nucleotides_Information info2)
      (tfill! (pref-ptr iub_Nucleotides_Information 0) #o141 0.27)
      (tfill! (pref-ptr iub_Nucleotides_Information 1) #o143 0.12)
      (tfill! (pref-ptr iub_Nucleotides_Information 2) #o147 0.12)
      (tfill! (pref-ptr iub_Nucleotides_Information 3) #o164 0.27)
      (tfill! (pref-ptr iub_Nucleotides_Information 4) #o102 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 5) #o104 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 6) #o110 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 7) #o112 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 8) #o115 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 9) #o116 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 10) #o122 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 11) #o123 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 12) #o126 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 13) #o127 0.02)
      (tfill! (pref-ptr iub_Nucleotides_Information 14) #o131 0.02)