resWord64 :: ArgRes Word64
resWord64           = 
   let
    coerceW = fromIntegral
    coerceI = fromIntegral
    
    readWord v = do
      (hi,lo) <- readVarWord64 v
      return (coerceW hi * (coerceI (maxBound :: Int) + 1) + coerceW lo)
   in
   readWord
resWord64 :: ArgRes Word64
resWord64           = 
   let
    coerceW = fromIntegral
    coerceI = fromIntegral
    
    readWord v = do
      (hi,lo) <- readVarWord64 v
      return (coerceW hi * (coerceI (maxBound :: Int) + 1) + coerceW lo)
   in
   readWord
resWord64           = 
   let
    coerceW = fromIntegral
    coerceI = fromIntegral
    
    readWord v = do
      (hi,lo) <- readVarWord64 v
      return (coerceW hi * (coerceI (maxBound :: Int) + 1) + coerceW lo)
   in
   readWord