BINMAP var1 {

  nucleotide := [1][0];

}

var1 := 10011100000000100110011011110101;

elsedummy := 0;

adenosine := 000000;

cytosine := 000000;

thymine := 000000;

guanine := 000000;


REPEAT (
    
    IF (var1.nucleotide = 00) THEN (
      adenosine := adenosine + 1d;
    ) ELSE (elsedummy := 0;)

    IF (var1.nucleotide = 01) THEN (
      cytosine := cytosine + 1d;
    ) ELSE (elsedummy := 0;)

    IF (var1.nucleotide = 10) THEN (
      thymine := thymine + 1d;
    ) ELSE (
      guanine := guanine + 1d; )

    var1 := var1 >> 2d;

) UNTIL (var1 = 0d)

	PRINT adenosine;

	PRINT cytosine;

	PRINT thymine;

	PRINT guanine;

