(Program
  (Match
    (Identifier)
    (
      (Pattern
        (
        { (Identifier)
        ->(Identifier) })
        (
        {+(Identifier)+}
        {+(Identifier)+}
        {-(Pattern
          {-(
            {-(Identifier)-}
            {-(Identifier)-})-}
          {-(
            {-(Identifier)-}
            {-([])-})-})-})))))