assemble-start

:program-name
    .s' Virtual Forth 0.1'

:foo
    lit 1
    dup

.end