1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
"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