%externalroutinespec lights set A(%integer what)
%externalroutinespec lights and A(%integer what)
%externalroutinespec lights or A (%integer what)
%externalroutinespec lights xor A(%integer what)

%externalroutinespec lights set B(%integer what)
%externalroutinespec lights and B(%integer what)
%externalroutinespec lights or B (%integer what)
%externalroutinespec lights xor B(%integer what)

%end %of %file