message: fix cause reduceLeft
diff: @@ -492,6 +492,10 @@ export function reduceLeft<Z>(z: Z) {
  current = current.left
  break
  }
  + case "Traced": {
  + current = current.cause
  + break
  + }
  default: {
  current = undefined
  break
  