'0':'x':(replicate (2*SIZEOF_HSPTR - length ls) '0') ++ ls ++ rs
-- word2Integer :: Word# -> Integer (stolen from Word.lhs)
word2Integer w = case word2Integer# w of
'0':'x':(replicate (2*SIZEOF_HSPTR - length ls) '0') ++ ls ++ rs
-- word2Integer :: Word# -> Integer (stolen from Word.lhs)
word2Integer w = case word2Integer# w of