%BEGIN
%INTEGER I,J,K
      %CYCLE I=1,1,16
         K=2
         K=K****I
         %CYCLE  J=0,1,4
            %IF K<<J#K*2****J %THEN PRINTSTRING("<< ERROR")
            %IF K>>J#K//(2****J) %THEN PRINTSTRING(">> ERROR")
         %REPEAT
      %REPEAT
%ENDOFPROGRAM