diff --git a/src/Convert/SizeCast.hs b/src/Convert/SizeCast.hs
index a80a806..4831d16 100644
--- a/src/Convert/SizeCast.hs
+++ b/src/Convert/SizeCast.hs
@@ -64,7 +64,9 @@ traverseExprM =
     where
         convertExprM :: Expr -> ST Expr
         convertExprM (Cast (Right (Number s)) (Number n)) =
-            case (readNumber s, readNumber n) of
+            if elem '\'' n && s == takeWhile (/= '\'') n
+            then return $ Number n
+            else case (readNumber s, readNumber n) of
                 (Just s', Just n') ->
                     return $ Number str
                     where