opcodes[]: global scope global { global scope implicit__fasta { AminoAcid[4096] kill ( AminoAcid[4096] ) { var AminoAcid[4096] ANON dup ( -- AminoAcid[4096]¢ ) forallitems ( AminoAcid[4096]¢ -- AminoAcid& ) -> L990 L989: peek ( AminoAcid& -- AminoAcid¢ ) dispose ( AminoAcid -- ) L990: ForAllEnd .. L989 } } type utf8str: type ucs1str: type ucs2str: type ucs4str: global scope vt100 { } float64 random_next_lookup () = inline { gvar-20 "rseed" ( -- uint32& ) peek ( uint32& -- uint32 ) 3877 ( -- uint32 ) * ( uint32, uint32 -- uint32 ) 29573 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) 139968 ( -- uint32 ) % ( uint32, uint32 -- uint32 ) gvar-20 "rseed" ( -- uint32& ) poke ( uint32, uint32& -- ) gvar-20 "rseed" ( -- uint32& ) peek ( uint32& -- uint32 ) cast ( uint32 -- float64 ) 0.029256687242798 ( -- float64 ) * ( float64, float64 -- float64 ) } void fill_lookup ( AminoAcid[4096]¢ lookup, AminoAcid[]¢ amino_acid ) { var AminoAcid[4096]¢ lookup var AminoAcid[]¢ amino_acid var float64 p var int32 i var int32 j 0 ( -- float64 ) 0 ( -- int32 ) 0 ( -- int32 ) L974: lvar+0+16 "amino_acid" ( -- AminoAcid[]¢& ) peek ( AminoAcid[]¢& -- AminoAcid[]¢ ) lvar-12+24 "i" ( -- int32& ) peek ( int32& -- int32 ) atindex ( AminoAcid[]¢, int32 -- AminoAcid& ) peek ( AminoAcid& -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) peek ( float64& -- float64 ) lvar-8+24 "p" ( -- float64& ) += ( float64, float64& -- ) lvar-8+16 "p" ( -- float64& ) peek ( float64& -- float64 ) 4095 ( -- float64 ) * ( float64, float64 -- float64 ) lvar+0+24 "amino_acid" ( -- AminoAcid[]¢& ) peek ( AminoAcid[]¢& -- AminoAcid[]¢ ) lvar-12+32 "i" ( -- int32& ) peek ( int32& -- int32 ) atindex ( AminoAcid[]¢, int32 -- AminoAcid& ) peek ( AminoAcid& -- AminoAcid¢ ) item+9 "cprob_lookup" ( -- float64& ) poke ( float64, float64& -- ) lvar-12+16 "i" ( -- int32& ) pppeek ( int32& -- int32 ) lvar+0+20 "amino_acid" ( -- AminoAcid[]¢& ) peek ( AminoAcid[]¢& -- AminoAcid[]¢ ) count ( AminoAcid[]¢ -- uint32 ) < ( int32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L975 jp ( -- ) -> L974 L975: 4095 ( -- float64 ) lvar+0+24 "amino_acid" ( -- AminoAcid[]¢& ) peek ( AminoAcid[]¢& -- AminoAcid[]¢ ) lvar+0+32 "amino_acid" ( -- AminoAcid[]¢& ) peek ( AminoAcid[]¢& -- AminoAcid[]¢ ) count ( AminoAcid[]¢ -- uint32 ) 1 ( -- uint32 ) - ( uint32, uint32 -- uint32 ) atindex ( AminoAcid[]¢, int32 -- AminoAcid& ) peek ( AminoAcid& -- AminoAcid¢ ) item+9 "cprob_lookup" ( -- float64& ) poke ( float64, float64& -- ) 0 ( -- int32 ) lvar-12+20 "i" ( -- int32& ) poke ( int32, int32& -- ) 0 ( -- int32 ) lvar-16+20 "j" ( -- int32& ) poke ( int32, int32& -- ) L976: lvar-12+16 "i" ( -- int32& ) peek ( int32& -- int32 ) 4096 ( -- int32 ) < ( int32, int32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L973 L978: lvar+0+16 "amino_acid" ( -- AminoAcid[]¢& ) peek ( AminoAcid[]¢& -- AminoAcid[]¢ ) lvar-16+24 "j" ( -- int32& ) peek ( int32& -- int32 ) atindex ( AminoAcid[]¢, int32 -- AminoAcid& ) peek ( AminoAcid& -- AminoAcid¢ ) item+9 "cprob_lookup" ( -- float64& ) peek ( float64& -- float64 ) lvar-12+24 "i" ( -- int32& ) peek ( int32& -- int32 ) cast ( int32 -- float64 ) < ( float64, float64 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L979 lvar-16+16 "j" ( -- int32& ) ++ ( int32& -- ) jp ( -- ) -> L978 L979: lvar+0+16 "amino_acid" ( -- AminoAcid[]¢& ) peek ( AminoAcid[]¢& -- AminoAcid[]¢ ) lvar-16+24 "j" ( -- int32& ) peek ( int32& -- int32 ) atindex ( AminoAcid[]¢, int32 -- AminoAcid& ) peek ( AminoAcid& -- AminoAcid¢ ) retain ( AminoAcid¢ -- AminoAcid ) lvar+8+24 "lookup" ( -- AminoAcid[4096]¢& ) peek ( AminoAcid[4096]¢& -- AminoAcid[4096]¢ ) lvar-12+32 "i" ( -- int32& ) peekpp ( int32& -- int32 ) atindex ( AminoAcid[4096]¢, int32 -- AminoAcid& ) swapwithvar ( AminoAcid, AminoAcid& -- AminoAcid ) dispose ( AminoAcid -- ) jp ( -- ) -> L976 L973: drop ( int32 -- ) drop ( int32 -- ) drop ( float64 -- ) drop ( AminoAcid[]¢ -- ) drop ( AminoAcid[4096]¢ -- ) } void randomize ( AminoAcid[]¢ amino_acid, int32 n ) { var AminoAcid[]¢ amino_acid var int32 n var AminoAcid[4096] lookup var utf8str line_buffer var int32 j local scope ANON var float64 r var AminoAcid* u 32768 ( -- uint32 ) alloc ( uint32 -- AminoAcid[4096] ) lvar-8+8 "lookup" ( -- AminoAcid[4096]& ) peek ( AminoAcid[4096]& -- AminoAcid[4096]¢ ) lvar+4+16 "amino_acid" ( -- AminoAcid[]¢& ) peek ( AminoAcid[]¢& -- AminoAcid[]¢ ) call fill_lookup ( AminoAcid[4096]¢, AminoAcid[]¢ ) 60 ( -- uint32 ) alloc ( uint32 -- utf8str ) 0 ( -- int32 ) L982: lvar+0+20 "n" ( -- int32& ) peekmm ( int32& -- int32 ) !! ( int32 -- bool ) jp_z ( bool -- ) -> L983 lvar-20+20 "j" ( -- int32& ) peek ( int32& -- int32 ) 60 ( -- int32 ) == ( int32, int32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L984 gvar-16 "fd" ( -- FD& ) peek ( FD& -- FD ) lvar-16+24 "line_buffer" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) 10 ( -- utf8char ) catchar ( utf8str, utf8char -- utf8str ) write ( FD, utf8str ) 0 ( -- int32 ) lvar-20+24 "j" ( -- int32& ) poke ( int32, int32& -- ) jp ( -- ) -> L984 L984: gvar-20 "rseed" ( -- uint32& ) peek ( uint32& -- uint32 ) 3877 ( -- uint32 ) * ( uint32, uint32 -- uint32 ) 29573 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) 139968 ( -- uint32 ) % ( uint32, uint32 -- uint32 ) gvar-20 "rseed" ( -- uint32& ) poke ( uint32, uint32& -- ) gvar-20 "rseed" ( -- uint32& ) peek ( uint32& -- uint32 ) cast ( uint32 -- float64 ) 0.029256687242798 ( -- float64 ) * ( float64, float64 -- float64 ) lvar-8+28 "lookup" ( -- AminoAcid[4096]& ) peek ( AminoAcid[4096]& -- AminoAcid[4096]¢ ) lvar-28+36 "r" ( -- float64& ) peek ( float64& -- float64 ) cast ( float64 -- uint32 ) atindex ( AminoAcid[4096]¢, int32 -- AminoAcid& ) L987: lvar-36+36 "u" ( -- AminoAcid*& ) peek ( AminoAcid*& -- AminoAcid* ) peek ( AminoAcid* -- AminoAcid¢ ) item+9 "cprob_lookup" ( -- float64& ) peek ( float64& -- float64 ) lvar-28+44 "r" ( -- float64& ) peek ( float64& -- float64 ) < ( float64, float64 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L988 lvar-36+36 "u" ( -- AminoAcid*& ) ++ ( AminoAcid*& -- ) jp ( -- ) -> L987 L988: lvar-36+36 "u" ( -- AminoAcid*& ) peek ( AminoAcid*& -- AminoAcid* ) peek ( AminoAcid* -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) peek ( utf8char& -- utf8char ) lvar-16+40 "line_buffer" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) lvar-20+48 "j" ( -- int32& ) peekpp ( int32& -- int32 ) atindex ( utf8str¢, int32 -- utf8char& ) poke ( utf8char, utf8char& -- ) drop ( AminoAcid* -- ) drop ( float64 -- ) jp ( -- ) -> L982 L983: gvar-16 "fd" ( -- FD& ) peek ( FD& -- FD ) lvar-16+24 "line_buffer" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 0 ( -- int32 ) lvar-20+36 "j" ( -- int32& ) peek ( int32& -- int32 ) substr ( utf8str¢, int32, int32 -- utf8char[to] ) 10 ( -- utf8char ) catchar ( utf8char[to], utf8char -- utf8str ) write ( FD, utf8str ) drop ( int32 -- ) dispose ( utf8str -- ) call! kill ( AminoAcid[4096] -- AminoAcid[4096] ) dispose ( AminoAcid[4096] -- ) drop ( int32 -- ) drop ( AminoAcid[]¢ -- ) local scope ANON { } } global scope ANON { } } args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) count ( utf8str[]¢ -- uint32 ) 2 ( -- uint32 ) == ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L964 args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) 1 ( -- int32 ) atindex ( utf8str[]¢, int32 -- utf8str& ) peek ( utf8str& -- utf8str¢ ) numval ( utf8str¢ -- int32 ) jp ( -- ) -> L965 L964: 512 ( -- int32 ) L965: args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) 0 ( -- int32 ) atindex ( utf8str[]¢, int32 -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 0 ( -- int32 ) args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) 0 ( -- int32 ) atindex ( utf8str[]¢, int32 -- utf8str& ) peek ( utf8str& -- utf8str¢ ) cast ( utf8str¢ -- utf8char[to] ) 47 ( -- utf8char ) rfind ( utf8char[to], utf8char -- uint32 ) substr ( utf8str¢, int32, int32 -- utf8char[to] ) "/fasta-" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8char[to], utf8str -- utf8str ) gvar-4 "N" ( -- int32& ) peek ( int32& -- int32 ) numstr ( int32 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) ".txt" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "output file = " ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) gvar-12 "path" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) 10 ( -- utf8char ) catchar ( utf8str, utf8char -- utf8str ) print ( utf8str ) gvar-12 "path" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 119 ( -- uint32 ) 436 ( -- uint32 ) open ( utf8str¢, uint32, uint32 -- FD ) 42 ( -- uint32 ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 97 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.27 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 99 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.12 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 103 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.12 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 116 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.27 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 66 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 68 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 72 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 75 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 77 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 78 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 82 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 83 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 86 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 87 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 89 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.02 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 120 ( -- uint32 ) alloc ( uint32 -- AminoAcid[15] ) dup2r ( AminoAcid[15] -- AminoAcid[15]¢ ) forallitems ( AminoAcid[15]¢ -- AminoAcid& ) -> L969 L968: poke ( AminoAcid, AminoAcid& -- ) L969: ForAllEnd .. L968 fromr ( -- AminoAcid[15] ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 97 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.302954942668 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 99 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.1979883004921 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 103 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.1975473066391 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 17 ( -- uint32 ) alloc ( uint32 -- AminoAcid ) tor ( AminoAcid -- ) 116 ( -- utf8char ) peekr ( -- AminoAcid¢ ) item+0 "sym" ( -- utf8char& ) poke ( utf8char, utf8char& -- ) 0.3015094502008 ( -- float64 ) peekr ( -- AminoAcid¢ ) item+1 "prob" ( -- float64& ) poke ( float64, float64& -- ) fromr ( -- AminoAcid ) 32 ( -- uint32 ) alloc ( uint32 -- AminoAcid[4] ) dup2r ( AminoAcid[4] -- AminoAcid[4]¢ ) forallitems ( AminoAcid[4]¢ -- AminoAcid& ) -> L971 L970: poke ( AminoAcid, AminoAcid& -- ) L971: ForAllEnd .. L970 fromr ( -- AminoAcid[4] ) "GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTG" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) "GGAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGA" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "GACCAGCCTGGCCAACATGGTGAAACCCCGTCTCTACTAAA" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "AATACAAAAATTAGCCGGGCGTGGTGGCGCGCGCCTGTAAT" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "CCCAGCTACTCGGGAGGCTGAGGCAGGAGAATCGCTTGAAC" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "CCGGGAGGCGGAGGTTGCAGTGAGCCGAGATCGCGCCACTG" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) "CACTCCAGCCTGGGCGACAGAGCGAGACTCCGTCTCAAAAA" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) gvar-16 "fd" ( -- FD& ) peek ( FD& -- FD ) ">ONE Homo sapiens alu\n" ( -- utf8str¢ ) write ( FD, utf8str¢ ) gvar-4 "N" ( -- int32& ) peek ( int32& -- int32 ) 2 ( -- uint32 ) * ( int32, uint32 -- int32 ) gvar-44 "alu" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) count ( utf8str¢ -- uint32 ) gvar-44 "alu" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) gvar-44 "alu" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 60 ( -- uint32 ) leftstr ( utf8str¢, uint32 -- utf8char[to] ) catstr ( utf8str, utf8char[to] -- utf8str ) 0 ( -- int32 ) 0 ( -- int32 ) L992: gvar-48 "n" ( -- int32& ) peek ( int32& -- int32 ) 0 ( -- int32 ) > ( int32, int32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L993 gvar-48 "n" ( -- int32& ) peek ( int32& -- int32 ) 60 ( -- int32 ) min ( int32, int32 -- int32 ) gvar-68 "bytes" ( -- int32& ) poke ( int32, int32& -- ) gvar-16 "fd" ( -- FD& ) peek ( FD& -- FD ) gvar-60 "buffer" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) gvar-64 "pos" ( -- int32& ) peek ( int32& -- int32 ) gvar-68 "bytes" ( -- int32& ) peek ( int32& -- int32 ) midstr ( utf8str¢, uint32, uint32 -- utf8char[to] ) 10 ( -- utf8char ) catchar ( utf8char[to], utf8char -- utf8str ) write ( FD, utf8str ) gvar-68 "bytes" ( -- int32& ) peek ( int32& -- int32 ) gvar-64 "pos" ( -- int32& ) += ( int32, int32& -- ) gvar-64 "pos" ( -- int32& ) peek ( int32& -- int32 ) gvar-52 "len" ( -- int32& ) peek ( int32& -- int32 ) > ( int32, int32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L994 gvar-52 "len" ( -- int32& ) peek ( int32& -- int32 ) gvar-64 "pos" ( -- int32& ) -= ( int32, int32& -- ) jp ( -- ) -> L994 L994: gvar-68 "bytes" ( -- int32& ) peek ( int32& -- int32 ) gvar-48 "n" ( -- int32& ) -= ( int32, int32& -- ) jp ( -- ) -> L992 L993: drop ( int32 -- ) drop ( int32 -- ) dispose ( utf8str -- ) drop ( int32 -- ) drop ( int32 -- ) gvar-16 "fd" ( -- FD& ) peek ( FD& -- FD ) ">TWO IUB ambiguity codes\n" ( -- utf8str¢ ) write ( FD, utf8str¢ ) gvar-28 "amino_acid" ( -- AminoAcid[]& ) peek ( AminoAcid[]& -- AminoAcid[]¢ ) gvar-4 "N" ( -- int32& ) peek ( int32& -- int32 ) 3 ( -- uint32 ) * ( int32, uint32 -- int32 ) call randomize ( AminoAcid[]¢, int32 ) gvar-16 "fd" ( -- FD& ) peek ( FD& -- FD ) ">THREE Homo sapiens frequency\n" ( -- utf8str¢ ) write ( FD, utf8str¢ ) gvar-36 "homo_sapiens" ( -- AminoAcid[]& ) peek ( AminoAcid[]& -- AminoAcid[]¢ ) gvar-4 "N" ( -- int32& ) peek ( int32& -- int32 ) 5 ( -- uint32 ) * ( int32, uint32 -- int32 ) call randomize ( AminoAcid[]¢, int32 )