forth functions
forth testdata