|:: read a line? :@stdio: (10 $x)|
    :@stdio: 10
    :buffer: $x
|:: read a line :@stdio: 10|
|:: read a line?|
  :@stdio: read

|:: print the buffer? :buffer: $x|
    :@stdio: write $x
|:: print the buffer|
    :@stdio: write 10

|:: skip leading whitespace? :buffer: 10 |
|:: skip leading whitespace? :buffer: 9  |
|:: skip leading whitespace? :buffer: ' '|
|:: skip leading whitespace|

|:: parse a command :buffer: "quit"|
    :quit:
|:: parse a command :buffer: "say"|
    :: skip leading whitespace
    :: print the buffer

|:: command loop :quit:|
|:: command loop?|
    :: read a line
    :: parse a command

||:: command loop