fromEvalResult (EvalSuccess bytes a) = do
  printBytes bytes
  return a
fromEvalResult (EvalSuccess bytes a) = do
  printBytes bytes
  return a
fromEvalResult (EvalSuccess bytes a) = do
  printBytes bytes
  return a