2017-02-23 21:06:49 +03:00
|
|
|
(Program
|
|
|
|
(Module
|
|
|
|
(Identifier))
|
2017-10-31 20:33:37 +03:00
|
|
|
(Function
|
|
|
|
(Empty)
|
|
|
|
(Identifier)
|
2017-11-10 04:01:19 +03:00
|
|
|
([])
|
2017-10-31 20:33:37 +03:00
|
|
|
{ (
|
|
|
|
{-(Match
|
|
|
|
{-(Pattern
|
|
|
|
{-(Identifier)-}
|
|
|
|
{-(Call
|
|
|
|
{-(Identifier)-}
|
|
|
|
{-(Empty)-})-})-}
|
|
|
|
{-([])-})-}
|
|
|
|
{-(Match
|
|
|
|
{-(Identifier)-}
|
|
|
|
{-(
|
|
|
|
{-(Pattern
|
|
|
|
{-(
|
|
|
|
{-(Integer)-}
|
|
|
|
{-(Integer)-})-}
|
|
|
|
{-(
|
|
|
|
{-(Call
|
|
|
|
{-(Identifier)-}
|
|
|
|
{-(Empty)-})-}
|
|
|
|
{-(Call
|
|
|
|
{-(Identifier)-}
|
|
|
|
{-(Empty)-})-}
|
|
|
|
{-(Pattern
|
|
|
|
{-(Identifier)-}
|
|
|
|
{-(Empty)-})-})-})-}
|
|
|
|
{-(DefaultPattern
|
|
|
|
{-(
|
|
|
|
{-(Call
|
|
|
|
{-(Identifier)-}
|
|
|
|
{-(Empty)-})-}
|
|
|
|
{-(Break
|
|
|
|
{-(Empty)-})-})-})-})-})-})
|
|
|
|
->(Match
|
|
|
|
{+(Empty)+}
|
|
|
|
{+([])+}) }))
|