header
s" Jorth Crash Course" write
s" Writing Jorth In Itself" write
bullet
s" : begin here ; immediate" write
s" : until ' BZ_ , , ; immediate" write pause
s" " write
s" : if ' BZ_ , here 0 , ; immediate" write
s" : then here swap ! ; immediate" write pause
s" " write
s" : ( begin key ')' = until ; immediate" write