diff --git a/examples/console_read.modal b/examples/console_read.modal index 0821fd9..d4145e7 100644 --- a/examples/console_read.modal +++ b/examples/console_read.modal @@ -1,5 +1,9 @@ -<> ((read)) (?:) -<> ((send ?:)) () -<> (?x ?y catswap) ((?y ?x)) +<> (read) (?~) +<> (?: print ') (?:) +<> (' ?x) (?x ') -(send (You said: )) (read) send catswap \ No newline at end of file +(Tell me three things: \n) print ' + +' (You said: read +then, you continued: read +finaly, you concluded: read) print diff --git a/examples/test.modal b/examples/test.modal index ce61fe4..fe024f6 100644 --- a/examples/test.modal +++ b/examples/test.modal @@ -11,6 +11,6 @@ <> (?x dup) (?x ?x) <> (?x ?y swap) (?y ?x) <> (?x pop) () -<> (print ?:) () +<> (print ?:) (?:) -(implode reverse (explode hello)) (explode hello) empty-register (eq abc abc) (eq abc def) (1 2 3) (4 5 6) swap pop dup (hey 1234 pop) (print Done.) \ No newline at end of file +(implode reverse (explode hello)) (explode hello) empty-register (eq abc abc) (eq abc def) (1 2 3) (4 5 6) swap pop dup (hey 1234 pop) (print Done.)