+//funkanomitron
s = ws Grammar ws
Grammar:: = Declaration +/ ws
Sequence = PreSequence
| Sequence ^"&" Elements /ws
+ | ^"~~" Elements /ws
| Sequence ^"&~" Elements /ws
e = e ^"!"
| e ^"*/" e /ws
| e ^"?" /ws
| ^"^" Quoted
+ | ^"`" e
+ | ^"..."
| "(" Word ^")"
> ^"(" RHS ")" /ws
- | ^"~" e
+ | "~":: ("~" -> ~"~")! e
| ^"\\{"
| ^"\\}"
-Word:: = [.a-zA-Z0-9_]++
+Word:: = [.a-zA-Z0-9_]++ &~ "."+
Quoted:: = "\"" (~[\"\\] | escaped)+ "\""
| "\"\""
| "\r":: "\\r"
| "\\" ~[nr]
-ws! = [ \r\n]** ("//" ~[\n]* "\n" ws)?
-
+ws! = [ \r\n]**
+ | [ \r\n]** "//" ~[\n]* "\n" ws