diff --git a/src/Mima/Parse/Common.hs b/src/Mima/Parse/Common.hs
index 5dc09e0..3943306 100644
--- a/src/Mima/Parse/Common.hs
+++ b/src/Mima/Parse/Common.hs
@@ -119,7 +119,7 @@ hexDigit = label "hexadecimal digit" $ token (helper . toLower) Set.empty
     helper _   = Nothing
 
 accumulateToBase :: (Integral a) => a -> [a] -> a
-accumulateToBase base = helper
+accumulateToBase base = helper . reverse
   where
     helper []     = 0
     helper [d]    = d