SUBROUTINE BELL(K)
	DO 10 N=1,K
S	CLA CLL
S	TAD (207
SBI,	TSF
S	JMP BI
S	TLS
S	CLA	
	DO 10 M=1,300
	J=M/3+2**K
10	CONTINUE
	RETURN
	END