readExample ::
  FilePath
  -> IO Example
readExample fn = do
  exampleBS <- BS.readFile fn
  let example = either error id $ eitherDecode exampleBS
  return $! example
readExample ::
  FilePath
  -> IO Example
readExample fn = do
  exampleBS <- BS.readFile fn
  let example = either error id $ eitherDecode exampleBS
  return $! example
readExample fn = do
  exampleBS <- BS.readFile fn
  let example = either error id $ eitherDecode exampleBS
  return $! example