diff --git a/compare/Main.hs b/compare/Main.hs
index 43b0409..138a580 100644
--- a/compare/Main.hs
+++ b/compare/Main.hs
@@ -322,7 +322,7 @@ sameW8VU n = VU.fromList (map fromIntegral (same n))
 randSmallW8VU n = VU.fromList (map fromIntegral (randSmall n))
 
 i3FromInt :: Int -> (Int, Int, Int)
-i3FromInt x = let x' = fromIntegral x in (x',x',x')
+i3FromInt x = (x,x,x)
 
 ----------
 -- Utils