Start_Time := Clock;
    for a in 1..100 loop
      if a mod 2 = 0 then
        for b in 1..100 loop
          if b mod 2 = 0 then
            for c in 1..100 loop
              SMG_Serpent.Encrypt(W, Plain, Encr);
              Plain := Encr;
            end loop;
          end if;
        end loop;
      end if;
    end loop;
   End_Time := Clock;