# Last modified on Wed Nov  4 17:45:58 PST 1992 by heydon

# DO 
#    Print("> ")
#  ; t := Readln()
#  ; Print(t)
#  ; Print("\n")
# OD

V0
"> "
V1
"\n"
V2
"<end-of-input>\n"

C1
.INCSP
b1
.PUSHG
c0
.CALLEXT
c0
# DECSP
# INCSP

# t := Readln()
.CALLEXT
c1
.TJUMP
s13
.PUSHG
c2
.CALLEXT
c0
.DECSP
b1
.RET

# Print(value on stack)
.CALLEXT
c0
.DECSP
b1

# Print("\n")
.PUSHG
c1
.CALLEXT
c0
.DECSP
b1

# Branch to top of loop
.JUMP
s-53

END
foo
bar
"text"
@#$%^