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