yodo # Read from STDIN a number
-1no # This will be the incrementer, so lower it by one
pa # Duplicate the top of the stack
1no # But leave the other two as the original number.
pa # Twice
{-1nupupapu-2no:# While the decremented bottom of the stack is truthy, leaving one of them on the top of the stack
2no # We subtracted two from that incrementer before, so that it would skip 1. Undo that.
zo # Modulus
(to)? # if the top of the stack is 0, thus, this is a factor.
("AHHHHH, NOT A PRIME"Yo)