putTerm (AtomTerm value)
  | len < 256 = tag 100 >> put16u len >> (putL $ C.pack value)
  | otherwise = fail "BERT atom too long (>= 256)"
  where
    len = length value
putTerm (AtomTerm value)
  | len < 256 = tag 100 >> put16u len >> (putL $ C.pack value)
  | otherwise = fail "BERT atom too long (>= 256)"
  where
    len = length value
putTerm (AtomTerm value)
  | len < 256 = tag 100 >> put16u len >> (putL $ C.pack value)
  | otherwise = fail "BERT atom too long (>= 256)"
  where
    len = length value