1 files changed, 7 insertions, 6 deletions
diff --git a/src/rationals.ads b/src/rationals.ads
index dfa5897..1f3de5f 100644
--- a/src/rationals.ads
+++ b/src/rationals.ads
@@ -1,6 +1,6 @@
 
 
-private with Crypto.Types.Big_Numbers;
+private with Multi_Precision_Integers;
 
 
 package Rationals is
@@ -210,14 +210,15 @@ package Rationals is
 private
 
 
-    package Bignum is new Crypto.Types.Big_Numbers (Size => 128);
-    use Crypto.Types;
-    use Bignum;
+    use Multi_Precision_Integers;
+
+
+    M_Size : constant Basic_Int := 4;
 
 
     type Fraction is record
-        Num : Big_Unsigned := Big_Unsigned_Zero;
-        Den : Big_Unsigned := Big_Unsigned_One;
+        Num : Multi_Int (M_Size);
+        Den : Multi_Int (M_Size);
     end record;