gistfile1.txt

      set 1
      sta result
next, lda stdin
      brz   done
      brp   skip
      neg
skip, sta value
      mlt result
      sta result
      lda value
      dec
      brp skip
      br next
done, lda result
      sta stdout
      hlt
value, noop
result,noop