Bio-Informatics
=================

set_environment CELL;

if ( START @ DNA )
  {
    transcription_factors == ON; unwind;
    initiate;
    while ( <template strand> )
      {
         transcribe [A->U, T->A, G->C, C->G];
         $mRNA++;
      } 
  }

splice && 3_prime = (A)++;

transfer -> CYTOSOL;

bind RIBOSOME [40S + 60S];

foreach TRIPLET ( @ mRNA )
  {
    use UNIVERSAL_CODE;
    elongate [$amino-acyl-tRNA bind];
    unless terminate; 
  }

fold PROTEIN <- chaperones;

act;
      react;
              interact;

FORM CELL; FORM LIFE;

LIVE;