// s ::= () => s0
//}
-//tibcase {
-// input "
-// hello
-// there
-// how
-// { are }
-//";
-//
-// s ::= ws S ws
-// ws !::= w*
-// S ::= { Hello }
-// Hello ::= "hello" { "there" "how" { "are" } }
-//}
+tibcase {
+ input
+"
+ hello
+ there
+ how
+ { are }
+";
+ output "yep";
+
+ s ::= { Hello } => "yep"
+ w ::= " " | "\n"
+ ws !::= w**
+ Hello ::= "hello" ws { "there" "how" { "are" } }
+}
testcase {
input "ab c";
| " " ([~]*) "\n"
any !::= [~]*
-s ::= !any "\n\n" !ww statement !ww "\n\n" !any => smt
-ww ::= sp*
+s ::= any "\n\n" ww statement ww "\n\n" any => smt
+ww !::= sp*
ws !::= sp**
sp ::= " "
-block ::= "\n" !indent blockBody
+block ::= "\n" indent blockBody
&~ "\n" outdent [~\ ] [~]*
blockBody ::= statement