{"body":" perl6 -e '\n\n\ngrammar braceExpansion\n{\n    token TOP       { <start-txt> <list> <end-txt> }\n    token start-txt { \\w+ }\n    token end-txt   { \\w+? }\n    token list      { \"\\{\" ~ \"\\}\" <element>+ % \",\" }\n    token element   { <-[ \" & $ ( ) ` ; < > | { } ]> }\n}\n\n\nmy $match = braceExpansion.parse( Q<A{1,2,*}B> );\nsay $match;\n'\n｢A{1,2,*}B｣\n start-txt => ｢A｣\n list => ｢{1,2,*}｣\n  element => ｢1｣\n  element => ｢2｣\n  element => ｢*｣\n end-txt => ｢B｣","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/fZFeldo1","modified":1570801759,"id":"fZFeldo1","size":471,"lines":23,"own_paste":false,"theme":"","date":1570801759}