diff --git a/UBigInt.pas b/UBigInt.pas
index 699145f..fd34585 100644
--- a/UBigInt.pas
+++ b/UBigInt.pas
@@ -568,7 +568,6 @@ end;
 operator := (const A: Int64): TBigInt;
 begin
   Result := TBigInt.FromInt64(A);
-  //WriteLn(':=a op: ', Result.ToString);
 end;
 
 operator - (const A: TBigInt): TBigInt;
@@ -583,8 +582,6 @@ begin
   end
   else
     Result := TBigInt.Zero;
-  //WriteLn('            a: ', A.ToString);
-  //WriteLn('-a  op: ', Result.ToString);
 end;
 
 operator + (const A, B: TBigInt): TBigInt;
@@ -593,9 +590,6 @@ begin
     Result := TBigInt.AddAbsoluteValues(A, B, A.IsNegative)
   else
     Result := TBigInt.SubtractAbsoluteValues(A, B, A.IsNegative);
-  //WriteLn('            a: ', A.ToString);
-  //WriteLn('            b: ', B.ToString);
-  //WriteLn('a+b op: ', Result.ToString);
 end;
 
 operator - (const A, B: TBigInt): TBigInt;
@@ -604,9 +598,6 @@ begin
     Result := TBigInt.SubtractAbsoluteValues(A, B, A.IsNegative)
   else
     Result := TBigInt.AddAbsoluteValues(A, B, A.IsNegative);
-  //WriteLn('            a: ', A.ToString);
-  //WriteLn('            b: ', B.ToString);
-  //WriteLn('a-b op: ', Result.ToString);
 end;
 
 operator * (const A, B: TBigInt): TBigInt;
@@ -615,9 +606,6 @@ begin
     Result := TBigInt.Zero
   else
     Result := TBigInt.MultiplyAbsoluteValues(A, B, A.IsNegative <> B.IsNegative);
-  //WriteLn('            a: ', A.ToString);
-  //WriteLn('            b: ', B.ToString);
-  //WriteLn('a*b op: ', Result.ToString);
 end;
 
 operator shl(const A: TBigInt; const B: Integer): TBigInt;
@@ -670,8 +658,6 @@ begin
 
     Result.FIsNegative := A.IsNegative;
   end;
-  //WriteLn('            a: ', A.ToString);
-  //WriteLn('a<< op: ', Result.ToString);
 end;
 
 operator = (const A, B: TBigInt): Boolean;