JULIE ;
 F I=65:1:67 D
 .F J=48:1:50 D
 ..F K=48:1:50 D
 ...F L=48:1:50 D
 ....D SET
 ...F L=65:1:67 D
 ....D SET
 ..F K=65:1:67 D
 ...F L=48:1:50 D
 ....D SET
 ...F L=65:1:67 D
 ....D SET
 ..F K=65:1:67 D
 ...F L=48:1:50 D
 ....D SET
 ...F L=65:1:67 D
 ....D SET
 ..F K=65:1:67 D
 ...F L=48:1:50 D
 ....D SET
 .F J=65:1:67 D
 ..F K=48:1:50 D
 ...F L=48:1:50 D
 ....D SET
 ...F L=65:1:67 D
 ....D SET
 ..F K=65:1:67 D
 ...F L=48:1:50 D
 ....D SET
 ...F L=65:1:67 D
 ....D SET
 ..F K=65:1:67 D
 ...F L=48:1:50 D
 ....D SET
 ...F L=65:1:67 D
 ....D SET
 ..F K=65:1:67 D
 ...F L=48:1:50 D
 ....D SET
 Q
SET S X=$C(I)_$C(J)_$C(K)_$C(L)
 S ^JULIEDBA(I,J,K,L)=X
 W !,X
 Q