program Seq
{
Declarations

		a := -1, int1 := -2, int2 := -3, int3 -> Integer;
		b := false, flag := true -> booLEAN;
	 	seq1 :=<<10,20,30,40,50>>, seq3 := <<1,2,3,4,5>>, seq2, seq4 -> Sequence;


Statements

/*		for (a in 6..20) stepUp 2
		{
		  cons(a,seq3);
		}

		writeLn(seq3);


		a = head(tail(tail(tail(seq1)))); 
		writeLn(a);

	        seq2 = TAIL(tail(seq1));
		writeLn(seq2);


		seq3 = tail(seq3);
		int1 = seq3[0];
		write(int1);
		writeLn();

		
		flag = isEmpty(seq4);
		writeLn(flag);

		WRITEln(seq3);*/
		int2 = seq3[(head(tail(seq1)))+4];
/*		writeLn(int2);

		writeLn(seq1);
		b = ismember(5,seq1);	
		writeLn(b);
		b = ismember(50,seq1);	
		writeLn(b);

		int3 = lENGth(seq1);
		writeLn(int3);
		del(30,seq1);
		int3 = lENGth(seq1);
		writeLn(int3);
*/
} 
