{ HELLO WORLD }
"Hello, world!"         { COULDN'T BE EASIER }

{ ADD UP TWO NUMBERS }
"Number 1: " ? A:{ PRINT PROMPT AND GET INTEGER, STORE IT IN "A" }
"Number 2: " ? B:{ DITTO, BUT STORE IN "B" }
A. ! " + " B. ! " = "  { PRINT OUT EQUATION IN THE FORM OF A + B = }
A. B. + { LOAD UP VALUES FROM VARIABLES AND ADD THEM UP }
! { PRINT OUT TOP OF THE STACK AS INTEGER }

{ SQUARES OF NUMBERS BETWEEN 1 AND 10 }
1 N: { STORE 1 IN "N" }
( { START OF LOOP }
  N. @ * ! _  { LOAD VALUE OF "N" TO STACK, DUPLICATE TOP OF THE STACK AND MULTIPLY, THEN PRINT }
  N. 10 < ^{ IF "N" IS LESS THAN 10, CONTINUE LOOP, OTHERWISE BREAK OUT OF LOOP }
  N. 1 + N:{ ADD 1 TO "N" AND STORE IN "N" }
) { LOOPBACK POINT }

{ CALCULATE FACTORIAL }
"Number: " ? N:  { PRINT PROMPT AND GET INTEGER, STORE IT IN VARIABLE "N" }
N.1-I:  { STORE "N-1" IN VARIABLE I (LATER USED AS ITERATION COUNTER) }
( { START OF LOOP }
  I. 1 > ^ { IS VARIABLE "I" GREATER THAN 1? IF FALSE, EXIT LOOP }
  N. I. * N:  { MULTIPLY "N" BY "I" AND STORE IN "N" }
  I. 1 - I:{ SUBTRACT 1 FROM "I" AND STORE IN "I" }
) { LOOPBACK POINT }
"Result: " N. !  { PRINT OUT THE RESULT }

{ A GAME OF GUESS THE NUMBER }
"Guess a number between 1 and 100."_  { PRINT INSTRUCTIONS AND NEW LINE }
1 101 #R:  { GENERATE A RANDOM NUMBER BETWEEN 1 AND 101 (NON-INCLUSIVE), STORE IN "R" }
( { START OF LOOP }
  "> "?N:  { PRINT PROMPT, GET INTEGER, STORE IN "N" }
  N.R.;^{ IF "N" NOT EQUAL "R" CONTINUE LOOPING }
  N.R.<["Higher..."_]  { IF "N" < "R" SAY HIGHER AND NEW LINE }
  N.R.>["Lower..."_]{ IF "N" > "R" SAY LOWER AND NEW LINE }
) { LOOPBACK POINT }
"Correct!" { INFORM OF A CORRECT GUESS }