putTerm :: Term -> PutM ()
putTerm (IntTerm value)
  | 0 <= value && value < 256 = tag 97 >> put8u value
  | otherwise                 = tag 98 >> put32s value
putTerm :: Term -> PutM ()
putTerm (IntTerm value)
  | 0 <= value && value < 256 = tag 97 >> put8u value
  | otherwise                 = tag 98 >> put32s value
putTerm (IntTerm value)
  | 0 <= value && value < 256 = tag 97 >> put8u value
  | otherwise                 = tag 98 >> put32s value