@@ -107,9 +107,9 @@ posDecimal :: (Integral a) =>
107posDecimal marr off0 ds v0 = go (off0 + ds - 1) v0
107posDecimal marr off0 ds v0 = go (off0 + ds - 1) v0
108 where go off v
108 where go off v
109 | v >= 100 = do
109 | v >= 100 = do
110− write2 off $ let u = v `rem` 100
110+ let (q, r) = v `quotRem` 100
111− in u + u
111+ write2 off (r + r)
112− go (off - 2) (v `quot` 100)
112+ go (off - 2) q
113 | v < 10 = unsafeWrite marr off (i2w v)
113 | v < 10 = unsafeWrite marr off (i2w v)
114 | otherwise = write2 off (v + v)
114 | otherwise = write2 off (v + v)
115 write2 off i = do
115 write2 off i = do