(Program
  (Match
    (Send
      (Identifier))
    (
      (Pattern
        (
          (Send
            (Identifier)))
        ([]
        {-(Send
          {-(Identifier)-})-}
        {-(Pattern
          {-(
            {-(Send
              {-(Identifier)-})-}
            {-(Send
              {-(Identifier)-})-})-}
          {-(
            {-(Send
              {-(Identifier)-})-})-})-}))))
{+(Match
  {+(Empty)+}
  {+(
    {+(Pattern
      {+(
        {+(Boolean)+})+}
      {+(
        {+(TextElement)+})+})+})+})+})