INP
AGAIN SUB ONE
      JNG DONE
      STO N
      INP
      ADD SUM
      STO SUM
      LOD N
      JMP AGAIN
DONE  LOD SUM
      OUT
      STP
N     DAT
ONE   DAT 1
SUM   DAT 0