(
  (ld r8 0)

  (ld r0 1
    (else? (add r8 1))
  )

  (sub r0 1
    (pos? (fault))
    (else? (add r8 1))
  )


  (cmp r8 2
    (ne? (fault))
  )
)