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