"Up to which number do you want a list of primes?" OUT
INP INT
"Here you go:" OUT
2 2
"2" OUT
#MAIN
1 SUM
DUP
2 PLL
DUP
3 PSH 
MOD
PI_
NOT
@NOPRIME IFJ
DUP
2 PSH
1 GRB
1 PLL
DUP
STR
OUT
#NOPRIME
DUP
3 PLL
DUP
4 PSH
SML
@MAIN IFJ