[ the same page in English ]
;
: 
, 
;
: 
, 
, 
,
, 
,
; : 
; : 
;
: 
.
to GenCode.Init
make "Phe [UUU UUC]
make "Leu [UUA UUG CUU CUC CUA CUG]
make "Ile [AUU AUC AUA]
make "Met [AUG]
make "Val [GUU GUC GUA GUG]
make "Ser [UCU UCC UCA UCG AGU AGC]
make "Pro [CCU CCC CCA CCG]
make "Thr [ACU ACC ACA ACG]
make "Ala [GCU GCC GCA GCG]
make "Tyr [UAU UAC]
make "Trm [UAA UAG UGA]
make "His [CAU CAC]
make "Gln [CAA CAG]
make "Asn [AAU AAC]
make "Lys [AAA AAG]
make "Asp [GAU GAC]
make "Glu [GAA GAG]
make "Cys [UGU UGC]
make "Trp [UGG]
make "Arg [CGU CGC CGA CGG AGA AGG]
make "Gly [GGU GGC GGA GGG]
make "acids [Phe Tyr His Cys Gln Lys Asp Glu Trp Val Ala ~
Thr Gly Pro Ser Ile Leu Arg Asn Met Trm]
end
to gencode :x :dir
if not (3 = count :x) [op "]
ifelse :dir [ op first filter [memberp :x thing ?] :acids ~
] [ ~
ifelse memberp :x :acids [ ~
op item 1 + random count thing :x thing :x ~
] [ op " ] ~
]
op "
end
to ribosoma :seq :dir
op map [gencode ? :dir] :seq
end