TEST(val)
 d:'val
 . n val
 . s val=5
 . d TEST(1)
 . q
 . w "Quit in a block is broken!",!
 w "Passed in argument: ",val,!
 g testGoto
 Quit ;comment

 ;My first working function!
ADD(x,y) Quit x+y

 ; This one does weird things if you pass in 'a' by ref
SET(a,b) Set a(b)=b
         Quit 1

 ; Go-go-gadget recursion
FACT(x)  Quit:(x<2) 1
         Quit x*$$FACT(x-1)


; test for killing in a stack frame
testKill(var) k var q 1

testGoto
 w "In goto!",!
 d
 . g innerLabel
 . q
innerLabel . w "Really in a goto!",!
 . q
 q