(Program
  (Try
  { (Identifier)
  ->(Identifier) }
  {+(Finally
    {+(Identifier)+})+}
  {-(Identifier)-}
  {-(Catch
    {-(
      {-(Identifier)-}
      {-(Identifier)-}
      {-(Identifier)-})-}
    {-([])-})-}
  {-(Catch
    {-(Let
      {-(Identifier)-}
      {-(Identifier)-}
      {-(Empty)-})-}
    {-(
      {-(Identifier)-}
      {-(Identifier)-})-})-}
  {-(Catch
    {-(
      {-(Identifier)-}
      {-(Identifier)-}
      {-(Identifier)-}
      {-(Identifier)-})-}
    {-([])-})-}
  {-(Catch
    {-(
      {-(Identifier)-}
      {-(Identifier)-})-}
    {-([])-})-})
  (Try
  { (Identifier)
  ->(Identifier) }
  {+(Catch
    {+(
      {+(Identifier)+}
      {+(Identifier)+})+}
    {+([])+})+}
  {+(Catch
    {+(Let
      {+(Identifier)+}
      {+(Identifier)+}
      {+(Empty)+})+}
    {+(Identifier)+})+}
  {+(Catch
    {+(
      {+(Identifier)+}
      {+(Identifier)+}
      {+(Identifier)+})+}
    {+([])+})+}
  {+(Catch
    {+(Identifier)+}
    {+([])+})+}
  {-(Identifier)-}
  {-(Finally
    {-(
      {-(Identifier)-}
      {-(Identifier)-})-})-}))