\ Test arithmetic operations
10 5 + .          \ Should print 15
10 5 - .          \ Should print 5
10 5 * .          \ Should print 50
10 5 / .          \ Should print 2

\ Test stack manipulation
1 2 3 .s          \ Should show 3 values: 1 2 3
dup .             \ Should print 3 again
drop .            \ Should print 2
swap .s           \ Should show 2 1
over .s           \ Should show 2 1 2
rot .s            \ Should show 1 2 3

\ Test comparisons
5 5 = .           \ Should print -1 (true)
5 3 < .          \ Should print 0 (false)
3 5 > .          \ Should print 0 (false)

\ Test conditionals within user-defined words
: test_if 10 20 if .s then ;  \ Should print 1 2 (since the condition is true)
: test_else 10 5 if .s else 1 then ;  \ Should print 1 (since the condition is false)

\ Test user-defined words
: square dup * ;   \ Define a word to square a number
4 square .         \ Should print 16

: add_three 1 2 + + ;  \ Define a word to add three numbers
1 2 add_three .    \ Should print 6

\ List all words
words              \ Should list all available words

bye                \ Exit the interpreter