IMPORT MOD "STRING"
IMPORT MOD "STYLE"

s <- "hello world"

STYLE("blue")
DISPLAY(SUBSTRING(s, 1, 4))
CLEAR_STYLE()
DISPLAY(SUBSTRING(s, 1, 4))